fsnotify 0.2.0.1 → 0.2.0.2

raw patch · 3 files changed

+19/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• fsnotify.cabal +1/−1
• src/System/FSNotify/OSX.hs +10/−1
• src/System/FSNotify/Win32.hs +8/−1

@@ -1,5 +1,5 @@ Name:                   fsnotify-Version:                0.2.0.1+Version:                0.2.0.2 Author:                 Mark Dittmer <mark.s.dittmer@gmail.com> Maintainer:             Greg Weber <greg@gregweber.info>, Roman Cheplyaka <roma@ro-che.info> License:                BSD3

@@ -22,7 +22,7 @@ import Filesystem (isFile) import Filesystem.Path hiding (concat) import System.FSNotify.Listener-import System.FSNotify.Path (fp, canonicalizeDirPath)+import System.FSNotify.Path (canonicalizeDirPath) import System.FSNotify.Types import qualified Data.Map as Map import qualified System.OSX.FSEvents as FSE@@ -33,6 +33,15 @@ type WatchMap = Map Unique WatchData data OSXManager = OSXManager (MVar WatchMap) type NativeManager = OSXManager+++class ConvertFilePath a b where+  fp :: a -> b+instance ConvertFilePath FilePath String where fp   = encodeString+instance ConvertFilePath String FilePath where fp   = decodeString+instance ConvertFilePath String String where fp     = id+instance ConvertFilePath FilePath FilePath where fp = id+  nil :: Word64 nil = 0x00

@@ -16,7 +16,7 @@ import Data.IORef (atomicModifyIORef, readIORef) import Data.Time (getCurrentTime, UTCTime) import System.FSNotify.Listener-import System.FSNotify.Path (fp, canonicalizeDirPath)+import System.FSNotify.Path (canonicalizeDirPath) import System.FSNotify.Types import Filesystem.Path import qualified System.Win32.Notify as WNo@@ -26,6 +26,13 @@ -- | Apparently Win32 gives back relative paths, so we pass around the base -- directory to turn them into absolute ones type BaseDir = FilePath++class ConvertFilePath a b where+  fp :: a -> b+instance ConvertFilePath FilePath String where fp   = encodeString+instance ConvertFilePath String FilePath where fp   = decodeString+instance ConvertFilePath String String where fp     = id+instance ConvertFilePath FilePath FilePath where fp = id  -- NEXT TODO: Need to ensure we use properly canonalized paths as -- event paths. In Linux this required passing the base dir to