From 1242b8cc91f2ba3b9860cf34b36d0a5bbcea1b1a Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 17 Sep 2006 14:57:46 +0000 Subject: predef types in gfcc --- src/GF/Canon/CanonToGFCC.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/GF/Canon/CanonToGFCC.hs') diff --git a/src/GF/Canon/CanonToGFCC.hs b/src/GF/Canon/CanonToGFCC.hs index bfcae3cf3..f7fc3f18f 100644 --- a/src/GF/Canon/CanonToGFCC.hs +++ b/src/GF/Canon/CanonToGFCC.hs @@ -177,7 +177,9 @@ paramValues cgr = (labels,untyps,typs) where jments = [(m,j) | (m,mo) <- M.allModMod cgr, j <- tree2list $ M.jments mo] typs = Map.fromList [(ci,Map.fromList (zip vs [0..])) | (ci,vs) <- params] untyps = Map.fromList $ concatMap Map.toList [typ | (_,typ) <- Map.toList typs] - lincats = [(cat,ls) | (_,(cat,CncCat (RecType ls) _ _)) <- jments] + lincats = + [(IC cat,[Lbg (L (IC "s")) TStr]) | cat <- ["Int", "Float", "String"]] ++ + [(cat,ls) | (_,(cat,CncCat (RecType ls) _ _)) <- jments] labels = Map.fromList $ concat [((cat,[lab]),(typ,i)): [((cat,[lab2,lab]),(ty,j)) | -- cgit v1.2.3