Expose Inotify type itself in callbacks to allow adding/removing watches

1 files changed, 3 insertions, 3 deletions

diff --git a/test.icl b/test.icl
index 9136510..dedd251 100644
--- a/test.icl
+++ b/test.icl
@@ -26,12 +26,12 @@ Start w
 # (inot, w)   = inotify_loop_with_timeout (Just 10000) inot w
 = inotify_close inot
 where
-	echo :: String INEvent (Maybe String) () *World -> *((), *World)
-	echo fname ev f _ w
+	echo :: String INEvent (Maybe String) *(Inotify ()) *World -> *(*Inotify (), *World)
+	echo fname ev f st w
 		# (io,w)    = stdio w
 		# io = io <<< "EVENT: ["<<< fname <<<"; "<<< ev <<<"; "<<< f <<<"]\n"
 		# (ok,w)    = fclose io w
-		= ((), w)
+		= (st, w)
 
 instance <<< (Maybe a) | <<< a
 where