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

move protocol version stuff to the Net free monad

Browse source 
Needs to be in Net not Local, so that Net actions can take the protocol
version into account.

This commit was sponsored by an anonymous bitcoin donor.
This commit is contained in:
Joey Hess 2018-03-12 15:19:40 -04:00
parent c81768d425
commit 596af7cbc4
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 61 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/EnableTor.hs
View file

@ -123,7 +123,8 @@ checkHiddenService = bracket setup cleanup go
, connIhdl = h
, connOhdl = h
}
void $ runNetProto conn $ P2P.serveAuth u
runst <- mkRunState Client
void $ runNetProto runst conn $ P2P.serveAuth u
hClose h
haslistener sockfile = catchBoolIO $ do