From ec1e2c87b78e2f57e91a650bee329f083abec9bf Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Fri, 16 Mar 2018 08:11:00 -0700
Subject: Semigroup instance for MediaBag with base >= 4.9.
---
src/Text/Pandoc/MediaBag.hs | 5 +++++
1 file changed, 5 insertions(+)
(limited to 'src')
diff --git a/src/Text/Pandoc/MediaBag.hs b/src/Text/Pandoc/MediaBag.hs
index 0d060fe1a..a962db674 100644
--- a/src/Text/Pandoc/MediaBag.hs
+++ b/src/Text/Pandoc/MediaBag.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-
@@ -50,7 +51,11 @@ import Text.Pandoc.MIME (MimeType, getMimeTypeDef)
-- can be used for an empty 'MediaBag', and '<>' can be used to append
-- two 'MediaBag's.
newtype MediaBag = MediaBag (M.Map [String] (MimeType, BL.ByteString))
+#if MIN_VERSION_base(4,9,0)
+ deriving (Semigroup, Monoid, Data, Typeable)
+#else
deriving (Monoid, Data, Typeable)
+#endif
instance Show MediaBag where
show bag = "MediaBag " ++ show (mediaDirectory bag)
--
cgit v1.2.3