From 07e098131633e5480b7a274ce28f329bd4f9e46b Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 16 Mar 2018 08:12:33 -0700
Subject: Pretty: Semigroup instance for Doc with base >= 4.9.

---
 src/Text/Pandoc/Pretty.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

diff --git a/src/Text/Pandoc/Pretty.hs b/src/Text/Pandoc/Pretty.hs
index 25c2373a6..7f695c4d7 100644
--- a/src/Text/Pandoc/Pretty.hs
+++ b/src/Text/Pandoc/Pretty.hs
@@ -112,7 +112,11 @@ data D = Text Int String
        deriving (Show, Eq)
 
 newtype Doc = Doc { unDoc :: Seq D }
+#if MIN_VERSION_base(4,9,0)
+              deriving (Semigroup, Monoid, Show, Eq)
+#else
               deriving (Monoid, Show, Eq)
+#endif
 
 instance IsString Doc where
   fromString = text
-- 
cgit v1.2.3