diff options
Diffstat (limited to 'utils/genprimopcode/ParserM.hs')
| -rw-r--r-- | utils/genprimopcode/ParserM.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/utils/genprimopcode/ParserM.hs b/utils/genprimopcode/ParserM.hs index 61fce96aca..ada6291ca3 100644 --- a/utils/genprimopcode/ParserM.hs +++ b/utils/genprimopcode/ParserM.hs @@ -42,10 +42,10 @@ instance Monad ParserM where Left err -> Left err return a = ParserM $ \i s -> Right (i, s, a) - fail err = ParserM $ \_ _ -> Left err + --fail err = ParserM $ \_ _ -> Left err ---instance MonadFail ParserM where --- fail err = ParserM $ \_ _ -> Left err +instance MonadFail ParserM where + fail err = ParserM $ \_ _ -> Left err run_parser :: ParserM a -> (String -> Either String a) run_parser (ParserM f) |