haskellPackages.spy: fix for new fsnotify version

Temporary fix, until it is merged upstream.

+29
+3
pkgs/development/haskell-modules/configuration-common.nix
··· 975 ''; 976 }); 977 978 }
··· 975 ''; 976 }); 977 978 + # https://bitbucket.org/ssaasen/spy/pull-requests/3/fsnotify-dropped-system-filepath 979 + spy = appendPatch super.spy ./patches/spy.patch; 980 + 981 }
+26
pkgs/development/haskell-modules/patches/spy.patch
···
··· 1 + diff --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"