hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: fix build with GHC-7.10

Browse Source
This commit is contained in:
Julian Ospald 2016-06-02 15:00:09 +02:00
parent da2c7f8e8b
commit 03fbae7999
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/HSFM/FileSystem/FileType.hs
View File

@ -196,15 +196,13 @@ pattern FileLike :: File FileInfo -> File FileInfo
pattern FileLike f <- (fileLike -> (True, f)) pattern FileLike f <- (fileLike -> (True, f))
-- |Matches a list of directories or symlinks pointing to directories. -- |Matches a list of directories or symlinks pointing to directories.
pattern DirList :: (Foldable t, Functor t) pattern DirList :: [File FileInfo] -> [File FileInfo]
=> t (File FileInfo) -> t (File FileInfo)
pattern DirList fs <- (\fs -> (and . fmap (fst . sdir) $ fs, fs) pattern DirList fs <- (\fs -> (and . fmap (fst . sdir) $ fs, fs)
-> (True, fs)) -> (True, fs))
-- |Matches a list of any non-directory kind of files or symlinks -- |Matches a list of any non-directory kind of files or symlinks
-- pointing to such. -- pointing to such.
pattern FileLikeList :: (Foldable t, Functor t) pattern FileLikeList :: [File FileInfo] -> [File FileInfo]
=> t (File FileInfo) -> t (File FileInfo)
pattern FileLikeList fs <- (\fs -> (and pattern FileLikeList fs <- (\fs -> (and
. fmap (fst . sfileLike) . fmap (fst . sfileLike)
$ fs, fs) -> (True, fs)) $ fs, fs) -> (True, fs))