diff options
Diffstat (limited to 'CmdLine')
-rw-r--r-- | CmdLine/GitRemoteTorAnnex.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/CmdLine/GitRemoteTorAnnex.hs b/CmdLine/GitRemoteTorAnnex.hs index ea4532ae6..72211c995 100644 --- a/CmdLine/GitRemoteTorAnnex.hs +++ b/CmdLine/GitRemoteTorAnnex.hs @@ -60,7 +60,13 @@ connectService address port service = do myuuid <- getUUID g <- Annex.gitRepo h <- liftIO $ torHandle =<< connectHiddenService address port - runNetProtoHandle h h g $ do + let runenv = RunEnv + { runRepo = g + , runCheckAuth = const False + , runIhdl = h + , runOhdl = h + } + runNetProtoHandle runenv $ do v <- auth myuuid authtoken case v of Just _theiruuid -> connect service stdin stdout |