From a66c1bf88e511b73c6237bf6e85b57c5756321b7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 10 Dec 2016 23:30:42 +0100
Subject: [PATCH] Generic instance for PandocError.
---
src/Text/Pandoc/Error.hs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/Text/Pandoc/Error.hs b/src/Text/Pandoc/Error.hs
index f76749a80..b624f4cb0 100644
--- a/src/Text/Pandoc/Error.hs
+++ b/src/Text/Pandoc/Error.hs
@@ -34,6 +34,7 @@ module Text.Pandoc.Error (PandocError(..), handleError) where
import Text.Parsec.Error
import Text.Parsec.Pos hiding (Line)
import Data.Generics (Typeable)
+import GHC.Generics (Generic)
import Control.Exception (Exception)
import Text.Pandoc.Shared (err)
@@ -44,7 +45,7 @@ data PandocError = PandocFileReadError FilePath
| PandocSomeError String
| PandocParseError String
| PandocParsecError Input ParseError
- deriving (Show, Typeable)
+ deriving (Show, Typeable, Generic)
-- data PandocError = -- | Generic parse failure