diff --git a/src/Observer/StorageObserver.hs b/src/Observer/StorageObserver.hs index b1c4de3..5b1ef6b 100644 --- a/src/Observer/StorageObserver.hs +++ b/src/Observer/StorageObserver.hs @@ -110,6 +110,7 @@ inotifyEvent messages e = do unloadFile DeletedFile p -- The watch path was deleted, so remove all files from the file store + -- TODO: (BUG) This event does not appear to trigger at the moment. DeletedSelf -> do putStrLn "The watched path was moved and hence no longer exists." unloadFiles DeletedRootDirectory