mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

consistent caps

Browse source
This commit is contained in:
Joey Hess 2016-12-08 17:17:01 -04:00
parent da8c65601f
commit 41ed0770df
No known key found for this signature in database
GPG key ID: C910D9222512E3C7
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
RemoteDaemon/Transport/Tor.hs
View file

@ -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"