From 27e4d02ec8ddd79f482c7e647a481a043006d606 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 8 Dec 2016 17:17:01 -0400 Subject: consistent caps --- RemoteDaemon/Transport/Tor.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'RemoteDaemon') 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" -- cgit v1.2.3