hlint
This commit is contained in:
parent
028b0d8961
commit
dfdaa649d0
13 changed files with 38 additions and 34 deletions
|
@ -428,7 +428,7 @@ enableRsyncNetGCrypt sshinput reponame =
|
|||
prepRsyncNet :: SshInput -> String -> (SshData -> Handler Html) -> Handler Html
|
||||
prepRsyncNet sshinput reponame a = do
|
||||
knownhost <- liftIO $ maybe (return False) knownHost (inputHostname sshinput)
|
||||
keypair <- liftIO $ genSshKeyPair
|
||||
keypair <- liftIO genSshKeyPair
|
||||
sshdata <- liftIO $ setupSshKeyPair keypair $
|
||||
(mkSshData sshinput)
|
||||
{ sshRepoName = reponame
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue