hobbes 0.2 → 0.2.1

raw patch · 2 files changed

+4/−3 lines, 2 files

Files

Hobbes.hs +3/−2
hobbes.cabal +1/−1

Hobbes.hs view

@@ -10,6 +10,7 @@  import Control.Monad (forever, when) import Control.Exception (bracket)+import Control.Concurrent (threadDelay)  import Data.Bits ((.&.)) @@ -32,8 +33,8 @@   let (dir, glob) = splitFileName path   in bracket        (eventStreamCreate [dir] 1.0 True True True (handleEvent glob))-       (\es -> eventStreamDestroy es >> putStrLn "Bye Bye!")-       (const $ forever getLine)+       (\es -> eventStreamDestroy es >> hPutStrLn stderr "Bye!")+       (const $ forever $ threadDelay 1000000)  handleEvent :: GlobPattern -> Event -> IO () handleEvent glob evt =

hobbes.cabal view

@@ -1,5 +1,5 @@ name:                hobbes-version:             0.2+version:             0.2.1 synopsis:            A small file watcher for OSX -- description:          homepage:            http://github.com/jhickner/hobbes