diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-11-20 15:45:01 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-11-20 15:48:12 -0400 |
| commit | dce8e76ef443e33d88b8301c86ebf080fceff511 (patch) | |
| tree | 204d7f7b2eaaeaa4acd7ed2e1182fb208b829c2c /Remote/Helper | |
| parent | 8e28135b26db1c920ebde7438db9bad87d3026ee (diff) | |
remotedaemon: serve tor hidden service
Diffstat (limited to 'Remote/Helper')
| -rw-r--r-- | Remote/Helper/P2P/IO.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote/Helper/P2P/IO.hs b/Remote/Helper/P2P/IO.hs index 7179adc2b..82ba2d6f9 100644 --- a/Remote/Helper/P2P/IO.hs +++ b/Remote/Helper/P2P/IO.hs @@ -9,7 +9,7 @@ module Remote.Helper.P2P.IO ( RunProto - , runProtoHandle + , runNetProtoHandle ) where import Remote.Helper.P2P @@ -38,8 +38,8 @@ data S = S -- Implementation of the protocol, communicating with a peer -- over a Handle. No Local actions will be run. -runProtoHandle :: MonadIO m => Handle -> Repo -> Proto a -> m a -runProtoHandle h r = go +runNetProtoHandle :: MonadIO m => Handle -> Repo -> Proto a -> m a +runNetProtoHandle h r = go where go :: RunProto go (Pure a) = pure a |