diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-09 10:52:19 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-09 10:52:19 +0000 |
| commit | 6a4218e9efebc8b037cf2410a5e07a3fb20a5069 (patch) | |
| tree | 01185ad42df649c258725d18cdea54d7809832c3 /src/GF/Devel/Grammar | |
| parent | b693ba103cac076bb8fe7d83a36f4fa9808321f4 (diff) | |
extend behaviour for interface and incomplete
Diffstat (limited to 'src/GF/Devel/Grammar')
| -rw-r--r-- | src/GF/Devel/Grammar/GFtoSource.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Devel/Grammar/GFtoSource.hs b/src/GF/Devel/Grammar/GFtoSource.hs index 9ac65469a..6618eaa20 100644 --- a/src/GF/Devel/Grammar/GFtoSource.hs +++ b/src/GF/Devel/Grammar/GFtoSource.hs @@ -146,6 +146,7 @@ trt trm = case trm of T _ cc -> P.ETable (map trCase cc) V ty cc -> P.EVTable (trt ty) (map trt cc) + Typed tr ty -> P.ETyped (trt tr) (trt ty) Table x v -> P.ETType (trt x) (trt v) S f x -> P.ESelect (trt f) (trt x) Let (x,(ma,b)) t -> |