pathwalk 0.3.1.1 → 0.3.1.2

raw patch · 2 files changed

+7/−4 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• pathwalk.cabal +1/−1
• src/System/Directory/PathWalk.hs +6/−3

@@ -1,5 +1,5 @@ name:                pathwalk-version:             0.3.1.1+version:             0.3.1.2 synopsis:            Path walking utilities for Haskell programs description:         Simple directory tree walking utilities. license:             MIT

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} -- | Provides path traversal functions much like Python's os.walk.  module System.Directory.PathWalk@@ -9,6 +10,9 @@     , pathWalkLazy     ) where +#if __GLASGOW_HASKELL__ < 710+import Data.Monoid (Monoid)+#endif import Control.Monad (forM, forM_, filterM) import Control.Monad.IO.Class (MonadIO, liftIO) import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)@@ -58,7 +62,7 @@    dirs <- filterM (\n -> doesDirectoryExist $ root </> n) properNames   files <- filterM (\n -> doesFileExist $ root </> n) properNames-  +   return (dirs, files)  pathWalkInternal :: MonadIO m => FilePath -> Callback m WalkStatus -> m (Maybe ())@@ -115,6 +119,5 @@     allsubs <- forM dirs $ \dir -> do       pathWalkLazy $ root </> dir     return $ concat allsubs-    -  return $ (root, dirs, files) : next +  return $ (root, dirs, files) : next