Morphological analysis and glueing.

src/GF/UseGrammar/Linear.hs

@@ -159,7 +159,7 @@ linearizeToStrss gr mk e = do
   R rs <- linearizeToRecord gr mk e ----
   t <- lookupErr linLab0 [(r,s) | Ass r s <- rs]
   return $ map strsFromTerm $ allInTable t 
-  
+-}
 
 -- the value is a list of strings, not forgetting their arguments
 allLinsOfFun :: CanonGrammar -> CIdent -> Err [[(Label,[([Patt],Term)])]]
@@ -168,9 +168,6 @@ allLinsOfFun gr f = do
   allLinValues t
 
 
-
--}
-
 -- returns printname if one exists; otherwise linearizes with metas
 
 printOrLinearize :: CanonGrammar -> Ident -> A.Fun -> String