diff options
Diffstat (limited to 'src/GF/GFCC/Raw/ConvertGFCC.hs')
| -rw-r--r-- | src/GF/GFCC/Raw/ConvertGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 ---- |