From b799970f9ed62d410a4f140bf9f98c1bd81c02cd Mon Sep 17 00:00:00 2001 From: "Iavor S. Diatchki" Date: Tue, 6 Jan 2015 11:50:40 -0800 Subject: [PATCH] Fix to work with GHC 7.8 --- src/Cryptol/Parser/NoInclude.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Cryptol/Parser/NoInclude.hs b/src/Cryptol/Parser/NoInclude.hs index 1b03c7f4..acec5513 100644 --- a/src/Cryptol/Parser/NoInclude.hs +++ b/src/Cryptol/Parser/NoInclude.hs @@ -20,6 +20,7 @@ import Cryptol.Parser.ParserUtils import Cryptol.Utils.PP import Data.Either (partitionEithers) +import qualified Control.Applicative as A import MonadLib import qualified Control.Exception as X @@ -63,7 +64,7 @@ tryNoIncM m = M (try (unM m)) instance Functor NoIncM where fmap = liftM -instance Applicative NoIncM where +instance A.Applicative NoIncM where pure = return (<*>) = ap