delta 0.1.0.0 → 0.1.0.1

raw patch · 4 files changed

+6/−9 lines, 4 files

Files

• delta.cabal +1/−1
• src/System/Delta.hs +3/−6
• src/System/Delta/Poll.hs +1/−1
• src/delta-cli/Main.hs +1/−1

@@ -10,7 +10,7 @@ -- PVP summary:      +-+------- breaking API changes --                   | | +----- non-breaking API additions --                   | | | +--- code changes with no API change-version:             0.1.0.0+version:             0.1.0.1  -- A short (one-line) description of the package. synopsis:            A library for detecting file changes

@@ -13,12 +13,9 @@ import System.Delta.Callback  -- | Build a file watcher-deltaDir :: (FileWatcher a) => FilePath -> IO a-deltaDir path = defaultWatcher path >>= return . watcherId+deltaDir :: FilePath -> IO PollWatcher+deltaDir path = defaultWatcher path  -- | Build a file watcher that allows to register callbacks-deltaDirWithCallbacks :: (FileWatcher a) => FilePath -> IO (CallbackWatcher a)+deltaDirWithCallbacks :: FilePath -> IO (CallbackWatcher PollWatcher) deltaDirWithCallbacks path = deltaDir path >>= withCallbacks--watcherId :: (FileWatcher a) => a -> a-watcherId a = a

@@ -25,7 +25,7 @@                      ThreadId  instance FileWatcher PollWatcher where-  defaultWatcher = createPollWatcher 15+  defaultWatcher = createPollWatcher 3   changedFiles (PollWatcher _ e _ _ _) = e   newFiles     (PollWatcher _ _ e _ _) = e   deletedFiles (PollWatcher _ _ _ e _) = e

@@ -10,7 +10,7 @@   args <- getArgs   case args of     [path] -> do-                watcher <- createPollWatcher 1 path >>= withCallbacks+                watcher <- deltaDirWithCallbacks path                 withNewCallback watcher (\x -> putStrLn $ "new:\t" ++ x)                 withDeleteCallback watcher (\x -> putStrLn $ "del:\t" ++ x)                 withChangedCallback watcher (\(FileInfo(x,_,_)) ->