diff options
Diffstat (limited to 'CmdLine')
-rw-r--r-- | CmdLine/GitRemoteTorAnnex.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/CmdLine/GitRemoteTorAnnex.hs b/CmdLine/GitRemoteTorAnnex.hs index bc001f42f..77fadc63e 100644 --- a/CmdLine/GitRemoteTorAnnex.hs +++ b/CmdLine/GitRemoteTorAnnex.hs @@ -21,9 +21,7 @@ run (_remotename:address:[]) = forever $ do -- gitremote-helpers protocol l <- getLine case l of - "capabilities" -> do - putStrLn "connect" - putStrLn "" + "capabilities" -> putStrLn "connect" >> ready "connect git-upload-pack" -> go UploadPack "connect git-receive-pack" -> go ReceivePack _ -> error $ "git-remote-helpers protocol error at " ++ show l @@ -33,9 +31,12 @@ run (_remotename:address:[]) = forever $ do reverse $ takeWhile (/= '/') $ reverse address | otherwise = parseAddressPort address go service = do + ready + connectService onionaddress onionport service >>= exitWith + ready = do putStrLn "" hFlush stdout - connectService onionaddress onionport service >>= exitWith + run (_remotename:[]) = giveup "remote address not configured" run _ = giveup "expected remote name and address parameters" |