Merge pull request #4 from glatteis/master

only implement fail for old ghc version
alasconnect · Jun 9, 2020 · 1a4526a · 1a4526a
2 parents 4241ed7 + aa54092
commit 1a4526a
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Ldap/Asn1/FromAsn1.hs b/src/Ldap/Asn1/FromAsn1.hs
@@ -412,7 +412,9 @@ instance Monad (Parser s) where
   return x = Parser (\s -> return (s, x))
   Parser mx >>= k =
     Parser (mx >=> \(s', x) -> unParser (k x) s')
+#if !__GLASGOW_HASKELL__ >= 86
   fail _ = empty
+#endif
 
 instance MonadPlus (Parser s) where
   mzero = Parser (\_ -> mzero)