at 16.09-beta 26 lines 871 B view raw
1diff --git a/src/Spy/Watcher.hs b/src/Spy/Watcher.hs 2 index 8512613..4df67d4 100644 3--- a/src/Spy/Watcher.hs 4+++ b/src/Spy/Watcher.hs 5@@ -50,7 +50,7 @@ plainFormat = Plain 6 spy :: Spy -> IO b -> IO () 7 spy config after = withManager $ \wm -> 8 runIndefinitely 9- (watchTree wm (decodeString $ dir config) 10+ (watchTree wm (dir config) 11 (not . skipEvent config . eventPath) 12 (handleEvent config)) 13 (const after) 14@@ -106,9 +106,9 @@ eventTime (Modified _ t) = t 15 eventTime (Removed _ t) = t 16 17 eventPath :: Event -> FilePath 18-eventPath (Added fp _) = encodeString fp 19-eventPath (Modified fp _) = encodeString fp 20-eventPath (Removed fp _) = encodeString fp 21+eventPath (Added fp _) = fp 22+eventPath (Modified fp _) = fp 23+eventPath (Removed fp _) = fp 24 25 eventType :: Event -> FilePath 26 eventType (Added _ _) = "Added"