diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-13 00:57:52 -0400 |
| commit | df337bb63b4ed6e5d2ce563ec89d28d192e791db (patch) | |
| tree | 638813a415727b8a5441ba450e20e6dc2632c970 /Assistant/Ssh.hs | |
| parent | a3913f52e52777b18bd8e50ff593a4f4085e8b93 (diff) | |
hlint
Diffstat (limited to 'Assistant/Ssh.hs')
| -rw-r--r-- | Assistant/Ssh.hs | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Assistant/Ssh.hs b/Assistant/Ssh.hs index 47c2cb48a..ded2b0056 100644 --- a/Assistant/Ssh.hs +++ b/Assistant/Ssh.hs @@ -79,7 +79,9 @@ sshTranscript opts input = do _ <- forkIO $ E.evaluate (length transcript) >> putMVar outMVar () -- now write and flush any input - when (not (null input)) $ do hPutStr inh input; hFlush inh + unless (null input) $ do + hPutStr inh input + hFlush inh hClose inh -- done with stdin -- wait on the output @@ -114,13 +116,12 @@ removeAuthorizedKeys rsynconly pubkey = do sshdir <- sshDir let keyfile = sshdir </> ".authorized_keys" ls <- lines <$> readFileStrict keyfile - writeFile keyfile $ unlines $ - filter (\l -> not $ l == keyline) ls + writeFile keyfile $ unlines $ filter (/= keyline) ls {- Implemented as a shell command, so it can be run on remote servers over - ssh. -} addAuthorizedKeysCommand :: Bool -> SshPubKey -> String -addAuthorizedKeysCommand rsynconly pubkey = join "&&" $ +addAuthorizedKeysCommand rsynconly pubkey = join "&&" [ "mkdir -p ~/.ssh" , "touch ~/.ssh/authorized_keys" , "chmod 600 ~/.ssh/authorized_keys" @@ -169,7 +170,7 @@ setupSshKeyPair sshkeypair sshdata = do (unionFileModes ownerWriteMode ownerReadMode) hPutStr h (sshPrivKey sshkeypair) hClose h - unlessM (doesFileExist $ sshdir </> sshpubkeyfile) $ do + unlessM (doesFileExist $ sshdir </> sshpubkeyfile) $ writeFile (sshdir </> sshpubkeyfile) (sshPubKey sshkeypair) unlessM (catchBoolIO $ isInfixOf mangledhost <$> readFile configfile) $ @@ -186,7 +187,7 @@ setupSshKeyPair sshkeypair sshdata = do sshprivkeyfile = "key." ++ mangledhost sshpubkeyfile = sshprivkeyfile ++ ".pub" mangledhost = "git-annex-" ++ T.unpack (sshHostName sshdata) ++ user - user = maybe "" (\u -> "-" ++ T.unpack u) (sshUserName sshdata) + user = maybe "" (\u -> '-' : T.unpack u) (sshUserName sshdata) {- Does ssh have known_hosts data for a hostname? -} knownHost :: Text -> IO Bool |