From f404412331bc6cf06c2cc248266f769391a57479 Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 18 Nov 2016 20:39:26 -0500 Subject: [PATCH] Free: Add Typeable instance to PandocActionError --- src/Text/Pandoc/Free.hs | 5 +++-- 1 file 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 @@ -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