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/Text/Pandoc')

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