From 5a919f01d178b8d6c0bb3b0b40d8c7fea7ff7ac6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 9 Dec 2016 16:27:20 -0400 Subject: make tor hidden service work when directory watching is not available Avoid crashing when built w/o inotify.. --- RemoteDaemon/Transport/Tor.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'RemoteDaemon') diff --git a/RemoteDaemon/Transport/Tor.hs b/RemoteDaemon/Transport/Tor.hs index 344d5aefb..6149df376 100644 --- a/RemoteDaemon/Transport/Tor.hs +++ b/RemoteDaemon/Transport/Tor.hs @@ -110,7 +110,7 @@ serveClient th u r q = bracket setup cleanup start liftAnnex th $ mergeState st' authed conn theiruuid = - bracket watchChangedRefs (liftIO . stopWatchingChangedRefs) $ \crh -> do + bracket watchChangedRefs (liftIO . maybe noop stopWatchingChangedRefs) $ \crh -> do v' <- runFullProto (Serving theiruuid crh) conn $ P2P.serveAuthed u case v' of -- cgit v1.2.3