diff options
| author | aarne <unknown> | 2005-04-04 14:50:27 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-04-04 14:50:27 +0000 |
| commit | 41108818c9e693bd8fc9a064901281035ce92933 (patch) | |
| tree | 9ea692aa756e5b0a22f332f1490cb4dddaf24a47 /src/GF/Source | |
| parent | 3f91f61735ed8741d9601c8e2349336a7deb61a7 (diff) | |
support for multi-character string literals
Diffstat (limited to 'src/GF/Source')
| -rw-r--r-- | src/GF/Source/GrammarToSource.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GF/Source/GrammarToSource.hs b/src/GF/Source/GrammarToSource.hs index 2a2e3e2d5..bfbb815f7 100644 --- a/src/GF/Source/GrammarToSource.hs +++ b/src/GF/Source/GrammarToSource.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/02/24 11:46:38 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.17 $ +-- > CVS $Date: 2005/04/04 15:50:27 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.18 $ -- -- From internal source syntax to BNFC-generated (used for printing). ----------------------------------------------------------------------------- @@ -145,6 +145,8 @@ trt trm = case trm of Q t l -> P.EQCons (tri t) (tri l) QC t l -> P.EQConstr (tri t) (tri l) TSh (TComp ty) cc -> P.ETTable (trt ty) (map trCases cc) + TSh (TTyped ty) cc -> P.ETTable (trt ty) (map trCases cc) + TSh (TWild ty) cc -> P.ETTable (trt ty) (map trCases cc) T (TTyped ty) cc -> P.ETTable (trt ty) (map trCase cc) T (TComp ty) cc -> P.ETTable (trt ty) (map trCase cc) T (TWild ty) cc -> P.ETTable (trt ty) (map trCase cc) |