diff options
| author | aarne <aarne@cs.chalmers.se> | 2005-12-17 22:21:23 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2005-12-17 22:21:23 +0000 |
| commit | a205829623ea7b928c84e56cd6453148f123a3d5 (patch) | |
| tree | 38f67cfaacb38af0369e236162b838b2d132a424 /src/GF | |
| parent | 14defedc653f50d11a52cecba13632688d1ec811 (diff) | |
end of tutorial sketched
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/UseGrammar/Morphology.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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)]) |