diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-05-17 11:16:53 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-05-17 11:16:53 +0100 |
| commit | 6e8889ddd6c1a77822ebcda06c4cb19cb3a27a5f (patch) | |
| tree | 8e97172660ddb7fbff590c77f4be51e1d92892f3 | |
| parent | 88b102e5c6a16dda81fb725d1e2a2ee34085ac9f (diff) | |
| download | haskell-6e8889ddd6c1a77822ebcda06c4cb19cb3a27a5f.tar.gz | |
parserm
| -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 ada6291ca3..61fce96aca 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) |