diff options
| author | Jesse Rosenthal <[email protected]> | 2016-11-18 20:39:26 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <[email protected]> | 2016-11-19 06:44:55 -0500 |
| commit | 241c152ac626743bfe4bddbca0815c46362efa93 (patch) | |
| tree | aeb48f6883dc0e0700e9f0157a63e0d13eb0fbba | |
| parent | ec548c632ece93203d4012e06939b3bfc79c736a (diff) | |
Free: Add Typeable instance to PandocActionError
| -rw-r--r-- | src/Text/Pandoc/Free.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Free.hs b/src/Text/Pandoc/Free.hs index 12ab95898..33cb50c88 100644 --- a/src/Text/Pandoc/Free.hs +++ b/src/Text/Pandoc/Free.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE DeriveFunctor #-} +{-# LANGUAGE DeriveFunctor, DeriveDataTypeable #-} {- Copyright (C) 2016 Jesse Rosenthal <[email protected]> @@ -90,6 +90,7 @@ import qualified System.FilePath.Glob as IO (glob) import Control.Monad.State hiding (fail) import Control.Monad.Reader hiding (fail) import Data.Word (Word8) +import Data.Typeable data PandocActionF nxt = LookupEnv String (Maybe String -> nxt) @@ -219,7 +220,7 @@ data TestEnv = TestEnv { envEnv :: [(String, String)] } data TestException = TestException - deriving (Show) + deriving (Show, Typeable) instance E.Exception TestException |