commit 67c57a9ce53f1f488ab0fc355a4452feeb9c5a67 · pyrox.dev/nixpkgs

pkgs/development/haskell-modules/configuration-common.nix

···

       998
       998
        
           '';

     

       999
       999
        
         });

     

       1000
       1000
        
       

     

       1001
       1001
       +
         # https://bitbucket.org/ssaasen/spy/pull-requests/3/fsnotify-dropped-system-filepath

     

       1002
       1002
       +
         spy = appendPatch super.spy ./patches/spy.patch;

     

       1003
       1003
       +
       

     

       1001
       1004
        
       }

+26

pkgs/development/haskell-modules/patches/spy.patch

···

       1
       1
       +
       diff --git a/src/Spy/Watcher.hs b/src/Spy/Watcher.hs

     

       2
       2
       +
            index 8512613..4df67d4 100644

     

       3
       3
       +
       --- a/src/Spy/Watcher.hs

     

       4
       4
       +
       +++ b/src/Spy/Watcher.hs

     

       5
       5
       +
       @@ -50,7 +50,7 @@ plainFormat = Plain

     

       6
       6
       +
        spy :: Spy -> IO b -> IO ()

     

       7
       7
       +
        spy config after = withManager $ \wm ->

     

       8
       8
       +
            runIndefinitely

     

       9
       9
       +
       -      (watchTree wm (decodeString $ dir config)

     

       10
       10
       +
       +      (watchTree wm (dir config)

     

       11
       11
       +
                          (not . skipEvent config . eventPath)

     

       12
       12
       +
                          (handleEvent config)) 

     

       13
       13
       +
              (const after)

     

       14
       14
       +
       @@ -106,9 +106,9 @@ eventTime (Modified _ t) = t

     

       15
       15
       +
        eventTime (Removed _ t) = t

     

       16
       16
       +
        

     

       17
       17
       +
        eventPath :: Event -> FilePath

     

       18
       18
       +
       -eventPath (Added fp _) = encodeString fp

     

       19
       19
       +
       -eventPath (Modified fp _) = encodeString fp

     

       20
       20
       +
       -eventPath (Removed fp _) = encodeString fp

     

       21
       21
       +
       +eventPath (Added fp _) = fp

     

       22
       22
       +
       +eventPath (Modified fp _) = fp

     

       23
       23
       +
       +eventPath (Removed fp _) = fp

     

       24
       24
       +
        

     

       25
       25
       +
        eventType :: Event -> FilePath

     

       26
       26
       +
        eventType (Added _ _) = "Added"