fsnotify 0.0.8 → 0.0.9

raw patch · 2 files changed

+7/−12 lines, 2 filesdep −directoryPVP ok

version bump matches the API change (PVP)

Dependencies removed: directory

API changes (from Hackage documentation)

Files

• fsnotify.cabal +2/−5
• test/Util.hs +5/−7

@@ -1,11 +1,10 @@ Name:                   fsnotify-Version:                0.0.8+Version:                0.0.9 Author:                 Mark Dittmer <mark.s.dittmer@gmail.com> Maintainer:             Mark Dittmer <mark.s.dittmer@gmail.com>, Greg Weber <greg@gregweber.info> License:                BSD3 License-File:           LICENSE-Synopsis:               Cross platform library for file creation, modification,-                        and deletion notification.+Synopsis:               Cross platform library for file change notification. Description:            Cross platform library for file creation, modification,                         and deletion notification. This library builds upon                         existing libraries for platform-specific Window, Mac,@@ -22,7 +21,6 @@ Library   Build-Depends:          base >= 4.3.1.0 && < 5                         , containers >= 0.4.2.1-                        , directory >= 1.1.0.2                         , system-fileio >= 0.3.8 && < 0.4                         , system-filepath >= 0.4.6 && <= 0.5                         , text >= 0.11.0@@ -74,7 +72,6 @@                         , bytestring >= 0.9.2.1                         , Cabal >= 1.14.0                         , containers >= 0.4.2.1-                        , directory >= 1.1.0.2                         , Glob >= 0.7.1                         , hspec >= 1.3.0                         , random >= 1.0.1.1

@@ -14,7 +14,7 @@ import Control.Monad (when) import Data.Unique.Id import Filesystem.Path.CurrentOS hiding (concat)-import System.Directory+import Filesystem (createTree, removeTree) import System.IO.Error (isPermissionError) import System.FSNotify import System.FSNotify.Path@@ -94,21 +94,19 @@ withNestedTempDir firstPath fn = do   secondPath <- testName   let path = if firstPath /= empty then-               fp $ firstPath </> secondPath+               firstPath </> secondPath              else-               fp secondPath-  bracket (createDirectory path >> threadDelay dirPreAction >> return path) (attemptDirectoryRemoval . fp) (fn . fp)+               secondPath+  bracket (createTree path >> threadDelay dirPreAction >> return path) attemptDirectoryRemoval fn  attemptDirectoryRemoval :: FilePath -> IO () attemptDirectoryRemoval path = do   threadDelay dirPostAction   catch-    (removeDirectoryRecursive pathString)+    (removeTree path)     (\e -> when            (not $ isPermissionError e)            (throw e))-  where-    pathString = fp path  performAction :: TestAction -> FilePath -> IO () performAction action path = action path