diff options
author | 2016-12-08 17:17:01 -0400 | |
---|---|---|
committer | 2016-12-08 17:17:01 -0400 | |
commit | 27e4d02ec8ddd79f482c7e647a481a043006d606 (patch) | |
tree | 7857b6b43dcf649c65e7c6f3415f17a90c92e515 /RemoteDaemon/Transport/Tor.hs | |
parent | 9a64b4edecf624bd50a9a53fa3c2ef1461d84a91 (diff) |
consistent caps
Diffstat (limited to 'RemoteDaemon/Transport/Tor.hs')
-rw-r--r-- | RemoteDaemon/Transport/Tor.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/RemoteDaemon/Transport/Tor.hs b/RemoteDaemon/Transport/Tor.hs index 514d40006..7afc9c333 100644 --- a/RemoteDaemon/Transport/Tor.hs +++ b/RemoteDaemon/Transport/Tor.hs @@ -51,7 +51,7 @@ server th@(TransportHandle (LocalRepo r) _) = do modifyFileMode sock $ addModes [groupReadMode, groupWriteMode, otherReadMode, otherWriteMode] listen soc 2 - debugM "remotedaemon" "tor hidden service running" + debugM "remotedaemon" "Tor hidden service running" forever $ do (conn, _) <- accept soc h <- setupHandle conn @@ -63,7 +63,7 @@ server th@(TransportHandle (LocalRepo r) _) = do ) unless ok $ do hClose h - warningIO "dropped TOR connection, too busy" + warningIO "dropped Tor connection, too busy" -- How many clients to serve at a time, maximum. This is to avoid DOS -- attacks. @@ -76,7 +76,7 @@ serveClient th u r q = bracket setup cleanup go setup = atomically $ readTBQueue q cleanup = hClose go h = do - debugM "remotedaemon" "serving a TOR connection" + debugM "remotedaemon" "serving a Tor connection" -- Avoid doing any work in the liftAnnex, since only one -- can run at a time. st <- liftAnnex th dupState @@ -96,9 +96,9 @@ serveClient th u r q = bracket setup cleanup go runFullProto (Serving theiruuid) conn $ serveAuthed u Right Nothing -> liftIO $ - debugM "remotedaemon" "TOR connection failed to authenticate" + debugM "remotedaemon" "Tor connection failed to authenticate" Left e -> liftIO $ - debugM "remotedaemon" ("Error while serving TOR connection: " ++ e) + debugM "remotedaemon" ("Error while serving Tor connection: " ++ e) -- Merge the duplicated state back in. liftAnnex th $ mergeState st' - debugM "remotedaemon" "done with TOR connection" + debugM "remotedaemon" "done with Tor connection" |