From d1603b48f375467c897ff040be6b92e242b5fb06 Mon Sep 17 00:00:00 2001 From: Matthew Hall Date: Tue, 14 Feb 2023 23:12:44 +1300 Subject: Implemented IF statements --- Parsers.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Parsers.hs') diff --git a/Parsers.hs b/Parsers.hs index 84b4856..a7f70a2 100644 --- a/Parsers.hs +++ b/Parsers.hs @@ -39,6 +39,9 @@ instance Alternative (Parser t) where instance MonadPlus (Parser t) +instance MonadFail (Parser t) where + fail _ = mzero + ----------------------------------------------------------------------------- flunk :: Parser t a -- cgit v1.2.1