@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# LANGUAGE DeriveDataTypeable #-}
23{-# LANGUAGE GeneralizedNewtypeDeriving #-}
34{-
@@ -50,7 +51,11 @@ import Text.Pandoc.MIME (MimeType, getMimeTypeDef)
5051-- can be used for an empty 'MediaBag', and '<>' can be used to append
5152-- two 'MediaBag's.
5253newtype MediaBag = MediaBag (M.Map [String] (MimeType, BL.ByteString))
54+#if MIN_VERSION_base(4,9,0)
55+ deriving (Semigroup, Monoid, Data, Typeable)
56+#else
5357 deriving (Monoid, Data, Typeable)
58+#endif
5459
5560instance Show MediaBag where
5661 show bag = "MediaBag " ++ show (mediaDirectory bag)