From 03fbae79995aa7e078db51c50f6b7a87e25cbf93 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Thu, 2 Jun 2016 15:00:09 +0200 Subject: [PATCH] LIB: fix build with GHC-7.10 --- src/HSFM/FileSystem/FileType.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/HSFM/FileSystem/FileType.hs b/src/HSFM/FileSystem/FileType.hs index 055e46b..fe5d223 100644 --- a/src/HSFM/FileSystem/FileType.hs +++ b/src/HSFM/FileSystem/FileType.hs @@ -196,15 +196,13 @@ pattern FileLike :: File FileInfo -> File FileInfo pattern FileLike f <- (fileLike -> (True, f)) -- |Matches a list of directories or symlinks pointing to directories. -pattern DirList :: (Foldable t, Functor t) - => t (File FileInfo) -> t (File FileInfo) +pattern DirList :: [File FileInfo] -> [File FileInfo] pattern DirList fs <- (\fs -> (and . fmap (fst . sdir) $ fs, fs) -> (True, fs)) -- |Matches a list of any non-directory kind of files or symlinks -- pointing to such. -pattern FileLikeList :: (Foldable t, Functor t) - => t (File FileInfo) -> t (File FileInfo) +pattern FileLikeList :: [File FileInfo] -> [File FileInfo] pattern FileLikeList fs <- (\fs -> (and . fmap (fst . sfileLike) $ fs, fs) -> (True, fs))