git.iko.soy/typeable/pandoc
on master help sign in
Class: Semigroup instance for FileTree with base >= 4.9.
0b5712eJohn MacFarlane
src/Text/Pandoc/Class.hs+4
compare with master
unifiedsplit
@@ -923,7 +923,11 @@ data FileInfo = FileInfo { infoFileMTime :: UTCTime
923 }
923 }
924
924
925newtype FileTree = FileTree {unFileTree :: M.Map FilePath FileInfo}
925newtype FileTree = FileTree {unFileTree :: M.Map FilePath FileInfo}
926+#if MIN_VERSION_base(4,9,0)
927+ deriving (Semigroup, Monoid)
928+#else
926 deriving (Monoid)
929 deriving (Monoid)
930+#endif
927
931
928getFileInfo :: FilePath -> FileTree -> Maybe FileInfo
932getFileInfo :: FilePath -> FileTree -> Maybe FileInfo
929getFileInfo fp tree =
933getFileInfo fp tree =