From 5e665fa2ac63ee0739f787cc2fb7744d40721b7a Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 1 Jun 2006 07:51:53 +0000 Subject: bug fixes: too much reading of files ; lin of variant records --- src/GF/UseGrammar/Linear.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/GF/UseGrammar') diff --git a/src/GF/UseGrammar/Linear.hs b/src/GF/UseGrammar/Linear.hs index 86c5fad3e..f18091810 100644 --- a/src/GF/UseGrammar/Linear.hs +++ b/src/GF/UseGrammar/Linear.hs @@ -75,7 +75,8 @@ linearizeToRecord gr mk m = lin [] where look = lookupLin gr . redirectIdent m . rtQIdent comp = ccompute gr mkBinds bs bdy = case bdy of - R fs -> R $ [Ass (LV i) (tK (prt t)) | (i,(t,_)) <- zip [0..] bs] ++ fs + R fs -> R $ [Ass (LV i) (tK (prt t)) | (i,(t,_)) <- zip [0..] bs] ++ fs + FV rs -> FV $ map (mkBinds bs) rs recS t = R [Ass (L (identC "s")) t] ---- -- cgit v1.2.3