fsnotify 0.2.1 → 0.2.1.1
raw patch · 3 files changed
+16/−4 lines, 3 filesdep +temporarydep −temporary-rcPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies added: temporary
Dependencies removed: temporary-rc
API changes (from Hackage documentation)
- System.FSNotify: confDebounce :: WatchConfig -> Debounce
- System.FSNotify: confPollInterval :: WatchConfig -> Int
- System.FSNotify: confUsePolling :: WatchConfig -> Bool
+ System.FSNotify: [confDebounce] :: WatchConfig -> Debounce
+ System.FSNotify: [confPollInterval] :: WatchConfig -> Int
+ System.FSNotify: [confUsePolling] :: WatchConfig -> Bool
Files
- CHANGELOG.md +10/−0
- fsnotify.cabal +2/−2
- src/System/FSNotify/Linux.hs +4/−2
CHANGELOG.md view
@@ -1,6 +1,16 @@ Changes ======= +Version 0.2.1.1+---------------++Catch IO exceptions when initialising inotify on Linux++Version 0.2.1+-------------++Don't use `system-filepath`+ Version 0.2 -----------
fsnotify.cabal view
@@ -1,5 +1,5 @@ Name: fsnotify-Version: 0.2.1+Version: 0.2.1.1 Author: Mark Dittmer <mark.s.dittmer@gmail.com> Maintainer: Greg Weber <greg@gregweber.info>, Roman Cheplyaka <roma@ro-che.info> License: BSD3@@ -66,7 +66,7 @@ , unix-compat , fsnotify , async >= 2- , temporary-rc+ , temporary Source-Repository head Type: git
src/System/FSNotify/Linux.hs view
@@ -3,6 +3,7 @@ -- Developed for a Google Summer of Code project - http://gsoc2012.markdittmer.org -- {-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE ScopedTypeVariables #-} {-# OPTIONS_GHC -fno-warn-orphans #-} module System.FSNotify.Linux@@ -12,9 +13,10 @@ import Prelude hiding (FilePath) + import Control.Concurrent.Chan import Control.Concurrent.MVar-import Control.Exception+import Control.Exception as E import Control.Monad (when) import Data.IORef (atomicModifyIORef, readIORef) import Data.Time.Clock (UTCTime, getCurrentTime)@@ -66,7 +68,7 @@ varieties = [INo.Create, INo.Delete, INo.MoveIn, INo.MoveOut, INo.CloseWrite] instance FileListener INo.INotify where- initSession = fmap Just INo.initINotify+ initSession = E.catch (fmap Just INo.initINotify) (\(_ :: IOException) -> return Nothing) killSession = INo.killINotify