make tor hidden service work when directory watching is not available

Avoid crashing when built w/o inotify..

1 files changed, 3 insertions, 3 deletions

diff --git a/P2P/Annex.hs b/P2P/Annex.hs
index 351fb38bb..b3db7513c 100644
--- a/P2P/Annex.hs
+++ b/P2P/Annex.hs
@@ -26,7 +26,7 @@ import Utility.Metered
 import Control.Monad.Free
 
 data RunMode
-	= Serving UUID ChangedRefsHandle
+	= Serving UUID (Maybe ChangedRefsHandle)
 	| Client
 
 -- Full interpreter for Proto, that can receive and send objects.
@@ -114,12 +114,12 @@ runLocal runmode runner a = case a of
 				next
 			Right _ -> runner next
 	WaitRefChange next -> case runmode of
-		Serving _ h -> do
+		Serving _ (Just h) -> do
 			v <- tryNonAsync $ liftIO $ waitChangedRefs h
 			case v of
 				Left e -> return (Left (show e))
 				Right changedrefs -> runner (next changedrefs)
-		_ -> return $ Left "change notification not implemented for client"
+		_ -> return $ Left "change notification not available"
   where
 	transfer mk k af ta = case runmode of
 		-- Update transfer logs when serving.