Class: Semigroup instance for FileTree with base >= 4.9.
commit0b5712e69b054442ccb10be3c1aab4f8dcdb7efd
authorJohn MacFarlane <jgm@berkeley.edu>
dateFri 16 Mar 2018, 08:23 (9 years ago)
parent8360f9d
src/Text/Pandoc/Class.hs+4
@@ -923,7 +923,11 @@ data FileInfo = FileInfo { infoFileMTime :: UTCTime
923923 }
924924
925925newtype FileTree = FileTree {unFileTree :: M.Map FilePath FileInfo}
926+#if MIN_VERSION_base(4,9,0)
927+ deriving (Semigroup, Monoid)
928+#else
926929 deriving (Monoid)
930+#endif
927931
928932getFileInfo :: FilePath -> FileTree -> Maybe FileInfo
929933getFileInfo fp tree =