From a205829623ea7b928c84e56cd6453148f123a3d5 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 17 Dec 2005 22:21:23 +0000
Subject: end of tutorial sketched

---
 src/GF/UseGrammar/Morphology.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/GF/UseGrammar/Morphology.hs b/src/GF/UseGrammar/Morphology.hs
index 8b9935c23..2d96ecd77 100644
--- a/src/GF/UseGrammar/Morphology.hs
+++ b/src/GF/UseGrammar/Morphology.hs
@@ -71,7 +71,7 @@ mkMorpho gr a = tcompile $ concatMap mkOne $ allItems where
   
   -- gather forms of lexical items
   allLins fun@(m,f) = errVal [] $ do
-    ts <- allLinsOfFun gr (CIQ a f)  
+    ts <- lookupLin gr (CIQ a f) >>= comp >>= allAllLinValues  
     ss <- mapM (mapPairsM (mapPairsM (liftM wordsInTerm . comp))) ts
     return [(p,s) | (p,fs) <- concat $ map snd $ concat ss, s <- fs]
   prOne (_,f) c (ps,s) = (s, [prt f +++ tagPrt c +++ unwords (map prt_ ps)])
-- 
cgit v1.2.3