diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-03-15 19:00:09 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-03-15 19:00:09 +0000 |
| commit | e60237136b0a8285874fd57d38ec3518aa94b162 (patch) | |
| tree | 58a1d6d28d0cf03f0221bb07ea4dda992ddeb5f7 /src/GF/Devel/GetGrammar.hs | |
| parent | c73bc4f996b3259fa162d7dd11a23224053ceeae (diff) | |
fixed bug leading to looping in Devel.Compute
Diffstat (limited to 'src/GF/Devel/GetGrammar.hs')
| -rw-r--r-- | src/GF/Devel/GetGrammar.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/GF/Devel/GetGrammar.hs b/src/GF/Devel/GetGrammar.hs index 49546b6ea..4b54f789d 100644 --- a/src/GF/Devel/GetGrammar.hs +++ b/src/GF/Devel/GetGrammar.hs @@ -15,7 +15,7 @@ module GF.Devel.GetGrammar where import GF.Data.Operations -import qualified GF.Data.ErrM as E ---- +import qualified GF.Source.ErrM as E import GF.Devel.UseIO import GF.Grammar.Grammar @@ -49,6 +49,10 @@ getSourceModule opts file0 = do _ -> return file0 string <- readFileIOE file let tokens = myLexer string - mo1 <- ioeErr $ {- err2err $ -} pModDef tokens + mo1 <- ioeErr $ err2err $ pModDef tokens ioeErr $ transModDef mo1 +err2err :: E.Err a -> Err a +err2err (E.Ok v) = Ok v +err2err (E.Bad s) = Bad s + |