From 45f3c53dd9d540abac958b13783677c263aa6658 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Mon, 21 Nov 2016 19:04:39 -0500 Subject: Class: Specify Functor and Applicative We're still compiling for 7.8 which is pre-AMP, so let's just be explicit about it so we can use applicative notation. --- src/Text/Pandoc/Class.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text/Pandoc') diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index aca1067c6..2f5d179fe 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -67,7 +67,7 @@ import Control.Monad.Reader hiding (fail) import Data.Word (Word8) import Data.Typeable -class Monad m => PandocMonad m where +class (Functor m, Applicative m, Monad m) => PandocMonad m where lookupEnv :: String -> m (Maybe String) getCurrentTime :: m UTCTime getDefaultReferenceDocx :: Maybe FilePath -> m Archive -- cgit v1.2.3