diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-29 16:22:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-29 16:22:14 -0400 |
| commit | 47f4506a1ed1d98d3bdae0de24e00f2eb64611da (patch) | |
| tree | 384a5b97fb6710d19c4c26a43d6f364dedf4d4a3 /Assistant/Pairing | |
| parent | f62e5c41e4621940a863b35c9c54e0626587a694 (diff) | |
lifted Assistant.Sync into Assistant monad
lots of nice cleanups
Diffstat (limited to 'Assistant/Pairing')
| -rw-r--r-- | Assistant/Pairing/MakeRemote.hs | 5 |
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. |