From 44df29f52d074f372053e7b622849c65608728c4 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 8 Nov 2007 16:37:30 +0000 Subject: gfi linearization with flags -table -record -term --- src/GF/Devel/GrammarToGFCC.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/GF/Devel') diff --git a/src/GF/Devel/GrammarToGFCC.hs b/src/GF/Devel/GrammarToGFCC.hs index 66b238267..9c052b35c 100644 --- a/src/GF/Devel/GrammarToGFCC.hs +++ b/src/GF/Devel/GrammarToGFCC.hs @@ -175,16 +175,17 @@ mkParamLincat sgr lang cat = errVal (C.R [C.S []]) $ do mkPType typ = case typ of RecType lts -> do ts <- mapM (mkPType . snd) lts - return $ C.R ts + return $ C.R [ C.P (kks $ prt_ l) t | ((l,_),t) <- zip lts ts] Table p v -> do p' <- mkPType p v' <- mkPType v return $ C.S [p',v'] Sort "Str" -> return $ C.S [] _ -> return $ - C.FV $ map (C.K . C.KS . filter showable . prt_) $ + C.FV $ map (kks . filter showable . prt_) $ errVal [] $ Look.allParamValues sgr typ showable c = not (isSpace c) ---- || (c == ' ') -- to eliminate \n in records + kks = C.K . C.KS -- return just one module per language -- cgit v1.2.3