From 3addf256bcfaaa7748b0159a3dd6f6ce8fcd8b7c Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 31 Jan 2008 20:56:42 +0000 Subject: GFCC: TM with argument; fixed labels from bindings in gfc --- src/GF/GFCC/Raw/ConvertGFCC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/GFCC/Raw/ConvertGFCC.hs') diff --git a/src/GF/GFCC/Raw/ConvertGFCC.hs b/src/GF/GFCC/Raw/ConvertGFCC.hs index 437478bb6..1631a128f 100644 --- a/src/GF/GFCC/Raw/ConvertGFCC.hs +++ b/src/GF/GFCC/Raw/ConvertGFCC.hs @@ -137,7 +137,7 @@ toTerm e = case e of App (CId "A") [AInt i] -> V (fromInteger i) App f [] -> F f AInt i -> C (fromInteger i) - AMet -> TM + AMet -> TM "?" AStr s -> K (KS s) ---- _ -> error $ "term " ++ show e @@ -202,7 +202,7 @@ fromTerm e = case e of RP e v -> app "RP" [fromTerm e, fromTerm v] ---- W s v -> app "W" [AStr s, fromTerm v] C i -> AInt (toInteger i) - TM -> AMet + TM _ -> AMet F f -> App f [] V i -> App (CId "A") [AInt (toInteger i)] K (KS s) -> AStr s ---- -- cgit v1.2.3