fix

diff --git a/RemoteDaemon/Transport/Tor.hs b/RemoteDaemon/Transport/Tor.hs
index 6c5471966ed4779d10dab3f525dc8fcfe7694766..ccb84d1e90c4824ec3a0753fb06d56dcb6b25209 100644 (file)
--- a/RemoteDaemon/Transport/Tor.hs
+++ b/RemoteDaemon/Transport/Tor.hs
@@ -37,7 +37,7 @@ server th@(TransportHandle (LocalRepo r) _) = do
 
        uid <- getRealUserID
        let ident = fromUUID u
-       let sock = socketFile uid ident
+       let sock = hiddenServiceSocketFile uid ident
        nukeFile sock
        soc <- socket AF_UNIX Stream defaultProtocol
        bind soc (SockAddrUnix sock)