propellor spin
This commit is contained in:
parent
a9151250f2
commit
414b0dffec
|
@ -174,7 +174,7 @@ spin hn = do
|
||||||
cacheparams <- toCommand <$> sshCachingParams hn
|
cacheparams <- toCommand <$> sshCachingParams hn
|
||||||
go cacheparams url =<< gpgDecrypt (privDataFile hn)
|
go cacheparams url =<< gpgDecrypt (privDataFile hn)
|
||||||
where
|
where
|
||||||
go cacheparams url privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ ["-t", user, bootstrapcmd]) $ \(toh, fromh) -> do
|
go cacheparams url privdata = withBothHandles createProcessSuccess (proc "ssh" $ cacheparams ++ [user, bootstrapcmd]) $ \(toh, fromh) -> do
|
||||||
let finish = do
|
let finish = do
|
||||||
senddata toh (privDataFile hn) privDataMarker privdata
|
senddata toh (privDataFile hn) privDataMarker privdata
|
||||||
hClose toh
|
hClose toh
|
||||||
|
|
|
@ -81,7 +81,7 @@ hosts =
|
||||||
& JoeySites.gitServer hosts
|
& JoeySites.gitServer hosts
|
||||||
|
|
||||||
& cname "downloads.kitenet.net"
|
& cname "downloads.kitenet.net"
|
||||||
& JoeySites.annexWebSite "/srv/git/download.git"
|
& JoeySites.annexWebSite "/srv/git/downloads.git"
|
||||||
"downloads.kitenet.net"
|
"downloads.kitenet.net"
|
||||||
"840760dc-08f0-11e2-8c61-576b7e66acfd"
|
"840760dc-08f0-11e2-8c61-576b7e66acfd"
|
||||||
[("turtle", "ssh://turtle.kitenet.net/~/lib/downloads/")]
|
[("turtle", "ssh://turtle.kitenet.net/~/lib/downloads/")]
|
||||||
|
|
Loading…
Reference in New Issue