fsnotify-conduit 0.1.1.0 → 0.1.1.1

raw patch · 4 files changed

+15/−3 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• fsnotify-conduit.cabal +2/−2
• src/Data/Conduit/FSNotify.hs +8/−0
• test/Data/Conduit/FSNotifySpec.hs +1/−1

@@ -1,3 +1,7 @@+## 0.1.1.1++* Support fsnotify 0.3+ ## 0.1.1.0  * Drop older GHC support

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 7accb0cba2e3643d87a44e09c02d45c84caa55dd58836921394d14abd17f4c16+-- hash: 31761034262a3c9b9dc0b6e339f582c495fba2514bb3afa21f170fceff1da07f  name:           fsnotify-conduit-version:        0.1.1.0+version:        0.1.1.1 synopsis:       Get filesystem notifications as a stream of events description:    Please see the README and docs at <https://www.stackage.org/package/fsnotify-conduit> category:       Data, Conduit

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE RankNTypes #-} {-# LANGUAGE RecordWildCards #-} module Data.Conduit.FSNotify@@ -161,7 +162,14 @@                         -- Got a change to the file, write it to the channel                         | otherwise -> yield $                             case event of+#if MIN_VERSION_fsnotify(0, 3, 0)+                                FS.Added _ time dir -> FS.Added suffix time dir+                                FS.Modified _ time dir -> FS.Modified suffix time dir+                                FS.Removed _ time dir -> FS.Removed suffix time dir+                                FS.Unknown _ time str -> FS.Unknown suffix time str+#else                                 FS.Added _ time -> FS.Added suffix time                                 FS.Modified _ time -> FS.Modified suffix time                                 FS.Removed _ time -> FS.Removed suffix time+#endif             else yield event

@@ -21,7 +21,7 @@                 , ("foo", Nothing)                 ]             go (path, mcontents) = do-                liftIO $ threadDelay 10000+                liftIO $ threadDelay 1000000                 liftIO $ case mcontents of                     Nothing -> removeFile (root </> path)                     Just contents -> writeFile (root </> path) contents