make tor hidden service work when directory watching is not available

Avoid crashing when built w/o inotify..

1 files changed, 13 insertions, 12 deletions

diff --git a/Command/NotifyChanges.hs b/Command/NotifyChanges.hs
index 92c70f05e..27db8ad82 100644
--- a/Command/NotifyChanges.hs
+++ b/Command/NotifyChanges.hs
@@ -24,18 +24,19 @@ seek :: CmdParams -> CommandSeek
 seek = withNothing start
 
 start :: CommandStart
-start = do
-	h <- watchChangedRefs
-
-	-- No messages need to be received from the caller,
-	-- but when it closes the connection, notice and terminate.
-	let receiver = forever $ void $ getProtocolLine stdin
-	let sender = forever $ send . CHANGED =<< waitChangedRefs h
-
-	liftIO $ send READY
-	void $ liftIO $ concurrently sender receiver
-	liftIO $ stopWatchingChangedRefs h
-	stop
+start = go =<< watchChangedRefs
+  where
+	go (Just h) = do
+		-- No messages need to be received from the caller,
+		-- but when it closes the connection, notice and terminate.
+		let receiver = forever $ void $ getProtocolLine stdin
+		let sender = forever $ send . CHANGED =<< waitChangedRefs h
+
+		liftIO $ send READY
+		void $ liftIO $ concurrently sender receiver
+		liftIO $ stopWatchingChangedRefs h
+		stop
+	go Nothing = stop
 
 send :: Notification -> IO ()
 send n = do