From 2faba9011978f29f56bbc27287720a08b08b7adb Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 22 Feb 2008 15:17:50 +0000 Subject: started a directory of grammars testing testgf3 features --- src/GF/Devel/Grammar/GFtoSource.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/GF/Devel/Grammar/GFtoSource.hs') diff --git a/src/GF/Devel/Grammar/GFtoSource.hs b/src/GF/Devel/Grammar/GFtoSource.hs index 318974f5d..292f5b826 100644 --- a/src/GF/Devel/Grammar/GFtoSource.hs +++ b/src/GF/Devel/Grammar/GFtoSource.hs @@ -71,7 +71,7 @@ trAnyDef (i,ju) = let ---- JFun ty EData -> [P.DefFunData [P.FunDef [i'] (trt ty)]] JParam -> [P.DefPar [ P.ParDefDir i0 [ - P.ParConstr (tri c) (map trDecl co) | let EParam cos = jdef ju, (c,co) <- cos] + P.ParConstr (tri c) (map trDecl co) | let EParam _ cos = jdef ju, (c,co) <- cos] ]] JOper -> case jdef ju of Overload tysts -> @@ -160,6 +160,8 @@ trt trm = case trm of Alts (t, tt) -> P.EPre (trt t) [P.Alt (trt v) (trt c) | (v,c) <- tt] FV ts -> P.EVariants $ map trt ts EData -> P.EData + EParam t _ -> trt t + _ -> error $ "not yet" +++ show trm ---- trp :: Patt -> P.Patt -- cgit v1.2.3