summaryrefslogtreecommitdiff
path: root/Assistant/Pairing/MakeRemote.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Assistant/Pairing/MakeRemote.hs')
-rw-r--r--Assistant/Pairing/MakeRemote.hs5
1 files changed, 1 insertions, 4 deletions
diff --git a/Assistant/Pairing/MakeRemote.hs b/Assistant/Pairing/MakeRemote.hs
index d7e95686f..7c971c2e1 100644
--- a/Assistant/Pairing/MakeRemote.hs
+++ b/Assistant/Pairing/MakeRemote.hs
@@ -42,10 +42,7 @@ finishedPairing msg keypair = do
, "git-annex-shell -c configlist " ++ T.unpack (sshDirectory sshdata)
]
""
- st <- getAssistant threadState
- dstatus <- getAssistant daemonStatusHandle
- scanremotes <- getAssistant scanRemoteMap
- void $ liftIO $ makeSshRemote st dstatus scanremotes False sshdata
+ void $ makeSshRemote False sshdata
{- Mostly a straightforward conversion. Except:
- * Determine the best hostname to use to contact the host.