archive-sig 0.2.0.0 → 0.2.0.1

raw patch · 3 files changed

+6/−27 lines, 3 filesdep +dir-traversedep −directorydep −filepathPVP ok

version bump matches the API change (PVP)

Dependencies added: dir-traverse

Dependencies removed: directory, filepath

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• archive-sig.cabal +2/−6
• src/System/Directory/Recursive.hs +0/−21

@@ -1,3 +1,7 @@+# 0.2.0.1++  * Use `dir-traverse` to provide recursive directory traversal+ # 0.2.0.0    * Add `unpackFileToDirAndDecompress`

@@ -1,6 +1,6 @@ cabal-version: 2.0 name: archive-sig-version: 0.2.0.0+version: 0.2.0.1 license: BSD3 license-file: LICENSE copyright: Copyright: (c) 2019 Vanessa McHale@@ -29,17 +29,13 @@         Archive.Compression     signatures: Archive     hs-source-dirs: src-    other-modules:-        System.Directory.Recursive     default-language: Haskell2010     ghc-options: -Wall     build-depends:         base >=4.3 && <5,         bytestring -any,-        directory -any,-        bytestring -any,         composition-prelude >=2.0.3.0,-        filepath -any+        dir-traverse -any      if flag(development)         ghc-options: -Werror

@@ -1,21 +0,0 @@-module System.Directory.Recursive ( getDirRecursive ) where--import           Control.Composition ((.*))-import           Control.Monad       (filterM)-import           Data.Foldable       (fold)-import           System.Directory    (doesDirectoryExist, getDirectoryContents)-import           System.FilePath     ((</>))--getDirRecursive :: FilePath -> IO [FilePath]-getDirRecursive fp = do-    all' <- exclude <$> getDirectoryContents fp-    dirs <- exclude <$> filterM doesDirectoryExist (mkRel <$> all')-    case dirs of-        [] -> pure (mkRel <$> all')-        ds -> do-            next <- foldMapA getDirRecursive ds-            pure $ next <> (mkRel <$> all')--    where foldMapA = fmap fold .* traverse-          exclude = filter (\x -> x /= "." && x /= "..")-          mkRel = (fp </>)