cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better template

This commit is contained in:
Joey Hess 2014-04-03 12:26:27 -04:00
parent a8eecbca21
commit 492e4c68c8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Propellor/CmdLine.hs
View File

@ -197,7 +197,7 @@ spin host = do
sendGitClone :: HostName -> String -> IO () sendGitClone :: HostName -> String -> IO ()
sendGitClone host url = void $ actionMessage ("Pushing git repository to " ++ host) $ sendGitClone host url = void $ actionMessage ("Pushing git repository to " ++ host) $
withTmpFile "propellor.git." $ \tmp _ -> allM id withTmpFile "propellor.git" $ \tmp _ -> allM id
-- TODO: ssh connection caching, or better push method -- TODO: ssh connection caching, or better push method
-- with less connections. -- with less connections.
[ boolSystem "git" [Param "bundle", Param "create", File tmp, Param "HEAD"] [ boolSystem "git" [Param "bundle", Param "create", File tmp, Param "HEAD"]