diff options
| author | krasimir <krasimir@chalmers.se> | 2008-04-22 08:33:23 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2008-04-22 08:33:23 +0000 |
| commit | 92917e6e5e17a9c2bee27d33835755516a8b1178 (patch) | |
| tree | 6556633e247b13745ebe14f2d31229bb4ac06aaf /src/GF/Devel/GetGrammar.hs | |
| parent | 4c73735de917e2811f1ce75561397dc875365f94 (diff) | |
Use Happy grammar for imports extraction instead of hand made shallow crapy grammar
Diffstat (limited to 'src/GF/Devel/GetGrammar.hs')
| -rw-r--r-- | src/GF/Devel/GetGrammar.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/src/GF/Devel/GetGrammar.hs b/src/GF/Devel/GetGrammar.hs index e8136b1dd..cdd275ace 100644 --- a/src/GF/Devel/GetGrammar.hs +++ b/src/GF/Devel/GetGrammar.hs @@ -50,10 +50,5 @@ getSourceModule opts file0 = do _ -> return file0 string <- readFileIOE file let tokens = myLexer string - mo1 <- ioeErr $ err2err $ pModDef tokens + mo1 <- ioeErr $ pModDef tokens ioeErr $ transModDef mo1 - -err2err :: E.Err a -> Err a -err2err (E.Ok v) = Ok v -err2err (E.Bad s) = Bad s - |