extra 1.0 → 1.0.1
raw patch · 3 files changed
+7/−4 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Data.Either.Extra: isLeft :: Either l r -> Bool
+ Data.Either.Extra: isLeft :: Either a b -> Bool
- Data.Either.Extra: isRight :: Either l r -> Bool
+ Data.Either.Extra: isRight :: Either a b -> Bool
- Extra: isLeft :: Either l r -> Bool
+ Extra: isLeft :: Either a b -> Bool
- Extra: isRight :: Either l r -> Bool
+ Extra: isRight :: Either a b -> Bool
Files
- CHANGES.txt +3/−0
- extra.cabal +3/−3
- src/System/Directory/Extra.hs +1/−1
CHANGES.txt view
@@ -1,5 +1,8 @@ Changelog for Extra +1.0.1+ Make listFilesAvoid drop trailing path separators before testing+ #3, add a constraint base >= 4.4 1.0 No changes 0.8
extra.cabal view
@@ -1,7 +1,7 @@ cabal-version: >= 1.10 build-type: Simple name: extra-version: 1.0+version: 1.0.1 license: BSD3 license-file: LICENSE category: Development@@ -15,7 +15,7 @@ The module "Extra" documents all functions provided by this library. Modules such as "Data.List.Extra" provide extra functions over "Data.List" and also reexport "Data.List". Users are recommended to replace "Data.List" imports with "Data.List.Extra" if they need the extra functionality. homepage: https://github.com/ndmitchell/extra#readme bug-reports: https://github.com/ndmitchell/extra/issues-tested-with: GHC==7.8.3, GHC==7.6.3, GHC==7.4.2, GHC==7.2.2+tested-with: GHC==7.10.1, GHC==7.8.3, GHC==7.6.3, GHC==7.4.2, GHC==7.2.2 extra-source-files: CHANGES.txt@@ -30,7 +30,7 @@ default-language: Haskell2010 hs-source-dirs: src build-depends:- base == 4.*,+ base >= 4.4 && < 5, directory, filepath, process,
src/System/Directory/Extra.hs view
@@ -66,7 +66,7 @@ -- > ["bar.txt","foo" </> "baz.txt",".foo" </> "baz2.txt", "zoo"] ["bar.txt","zoo","foo" </> "baz.txt"] -- > listTest (listFilesInside $ const $ return False) ["bar.txt"] [] listFilesInside :: (FilePath -> IO Bool) -> FilePath -> IO [FilePath]-listFilesInside test dir = ifM (notM $ test dir) (return []) $ do+listFilesInside test dir = ifM (notM $ test $ dropTrailingPathSeparator dir) (return []) $ do (dirs,files) <- partitionM doesDirectoryExist =<< listContents dir rest <- concatMapM (listFilesInside test) dirs return $ files ++ rest