diff options
| author | bringert <unknown> | 2005-06-17 13:15:16 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2005-06-17 13:15:16 +0000 |
| commit | 2c48a10236bb19d8b04382cb1e957ce18b9d29fd (patch) | |
| tree | 1194fc1981b5cd2a144b72f4fff261edfeb1af2e /src/GF/Canon/SkelGFC.hs | |
| parent | 05b5ffe5bf03a870f6fe0728ace6c0d8de69b89e (diff) | |
Changed name of Con constructor in GFC.cf to avoid errors on Windows when generating Java code with BNFC for the GFC grammar. CON is a reserved filename on Windows. Con was changed to Par, and all the code using was changed too.
Diffstat (limited to 'src/GF/Canon/SkelGFC.hs')
| -rw-r--r-- | src/GF/Canon/SkelGFC.hs | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/GF/Canon/SkelGFC.hs b/src/GF/Canon/SkelGFC.hs index fd3fc9086..a1d9331d8 100644 --- a/src/GF/Canon/SkelGFC.hs +++ b/src/GF/Canon/SkelGFC.hs @@ -1,10 +1,11 @@ - module GF.Canon.SkelGFC where -- Haskell module generated by the BNF converter import GF.Canon.AbsGFC import GF.Data.ErrM +import GF.Infra.Ident + type Result = Err String failure :: Show a => a -> Result @@ -21,6 +22,15 @@ transCanon x = case x of Gr modules -> failure x +transLine :: Line -> Result +transLine x = case x of + LMulti ids id -> failure x + LHeader modtype extend open -> failure x + LFlag flag -> failure x + LDef def -> failure x + LEnd -> failure x + + transModule :: Module -> Result transModule x = case x of Mod modtype extend open flags defs -> failure x @@ -142,7 +152,7 @@ transTerm :: Term -> Result transTerm x = case x of Arg argvar -> failure x I cident -> failure x - Con cident terms -> failure x + Par cident terms -> failure x LI id -> failure x R assigns -> failure x P term label -> failure x |
