nemesis 2012.5.24.1 → 2012.12.18

raw patch · 4 files changed

+11/−10 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• nemesis.cabal +1/−1
• src/System/FilePath/Glob/Directory.hs +3/−1
• src/System/FilePath/Glob/Utils.hs +4/−1
• src/System/Nemesis/Runner.hs +3/−7

@@ -1,5 +1,5 @@ Name:                 nemesis-Version:              2012.5.24.1+Version:              2012.12.18 Build-type:           Simple Synopsis:             a Rake like task management tool Description:          smart per project code snippets

@@ -29,6 +29,8 @@                                   , partitionDL                                   ) +import System.IO.Error (catchIOError)+ -- The Patterns in TypedPattern don't contain PathSeparator or AnyDirectory -- -- We store the number of PathSeparators that Dir and AnyDir were followed by@@ -137,7 +139,7 @@ globDir' :: MatchOptions -> [TypedPattern] -> FilePath          -> IO (DList FilePath, DList FilePath) globDir' opts pats@(_:_) dir = do-   entries <- getDirectoryContents dir `catch` const (return [])+   entries <- getDirectoryContents dir `catchIOError` const (return [])     results <- forM entries $ \e -> matchTypedAndGo opts pats e (dir </> e) 

@@ -33,6 +33,9 @@ import System.Posix.Internals (sizeof_stat, lstat, s_isdir, st_mode) #endif ++import System.IO.Error (catchIOError)+ inRange :: Ord a => (a,a) -> a -> Bool inRange (a,b) c = c >= a && c <= b @@ -125,7 +128,7 @@  getRecursiveContents :: FilePath -> IO (DList FilePath) getRecursiveContents dir =-   flip Prelude.catch (\_ -> return $ DL.singleton dir) $ do+   flip catchIOError (\_ -> return $ DL.singleton dir) $ do        raw <- getDirectoryContents dir 

@@ -37,14 +37,10 @@       if not bin_exists         then return True         else do-          bin_stamp <- bin.file_mtime-          src_stamp <- get_src_name >>= file_mtime+          bin_stamp <- bin.getModificationTime+          src_stamp <- get_src_name >>= getModificationTime           return - bin_stamp P.< src_stamp-    -    file_mtime path = -      getModificationTime path ^ seconds ^ posixSecondsToUTCTime-    -    seconds (TOD s _) = s.fromIntegral+  get_src_name :: IO String get_src_name = do