diff options
Diffstat (limited to 'Utility/Tor.hs')
-rw-r--r-- | Utility/Tor.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Utility/Tor.hs b/Utility/Tor.hs index e63bd82d4..5457a5a24 100644 --- a/Utility/Tor.hs +++ b/Utility/Tor.hs @@ -29,7 +29,6 @@ type UniqueIdent = String connectHiddenService :: OnionAddress -> OnionPort -> IO Socket connectHiddenService (OnionAddress address) port = do - hPutStrLn stderr $ show ("connect to", address, port) (s, _) <- socksConnect torsockconf socksaddr return s where @@ -122,7 +121,7 @@ hiddenServiceHostnameFile uid ident = hiddenServiceDir uid ident </> "hostname" -- That should not be a problem if the UniqueIdent is around the length of -- a UUID. hiddenServiceSocketFile :: UserID -> UniqueIdent -> FilePath -hiddenServiceSocketFile uid ident = etcDir </> "hidden_services" </> show uid ++ "_" ++ show ident </> "s" +hiddenServiceSocketFile uid ident = etcDir </> "hidden_services" </> show uid ++ "_" ++ ident </> "s" -- | Sets up the directory for the socketFile, with appropriate -- permissions. Must run as root. |