Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Free: Add Typeable instance to PandocActionError

Browse source
This commit is contained in:
Jesse Rosenthal 2016-11-18 20:39:26 -05:00 • committed by John MacFarlane
parent 2ea3e77172
commit f404412331
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Free.hs
View file

@ -1,4 +1,4 @@
{-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE DeriveFunctor, DeriveDataTypeable #-}
{- {-
Copyright (C) 2016 Jesse Rosenthal <jrosenthal@jhu.edu> Copyright (C) 2016 Jesse Rosenthal <jrosenthal@jhu.edu>
@ -90,6 +90,7 @@ import qualified System.FilePath.Glob as IO (glob)
import Control.Monad.State hiding (fail) import Control.Monad.State hiding (fail)
import Control.Monad.Reader hiding (fail) import Control.Monad.Reader hiding (fail)
import Data.Word (Word8) import Data.Word (Word8)
import Data.Typeable
data PandocActionF nxt = data PandocActionF nxt =
LookupEnv String (Maybe String -> nxt) LookupEnv String (Maybe String -> nxt)
@ -219,7 +220,7 @@ data TestEnv = TestEnv { envEnv :: [(String, String)]
} }
data TestException = TestException data TestException = TestException
deriving (Show) deriving (Show, Typeable)
instance E.Exception TestException instance E.Exception TestException