fswatch 0.1.0.3 → 0.1.0.4

raw patch · 2 files changed

+4/−4 lines, 2 files

Files

fswatch.cabal +1/−1
src/System/FSWatch.hs +3/−3

fswatch.cabal view

@@ -1,6 +1,6 @@ 
 name:                fswatch
-version:             0.1.0.3
+version:             0.1.0.4
 synopsis:            File System watching tool with cli and slave functionalities.
 description:         File System watching tool with cli and slave lib (with os process) functionalities.
 category:            Filesystem

src/System/FSWatch.hs view

@@ -163,9 +163,9 @@     return man
 
 event2PE :: Event -> PE
-event2PE (Added str _) = Add str
-event2PE (Modified str _) = Mod str
-event2PE (Removed str _) = Rem str
+event2PE (Added str _ _) = Add str
+event2PE (Modified str _ _) = Mod str
+event2PE (Removed str _ _) = Rem str
 
 stop :: P -> String -> DB -> InputT IO ()
 stop p _ [] = printP p "no whatching this"