diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-13 17:03:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-13 17:03:21 -0400 |
| commit | a79e33944d14a3ee050ce6663e3813e0c2f52b26 (patch) | |
| tree | a0aa562145dd549453ec39afc0205d5bf6fe37ed /Propellor | |
| parent | 414b0dffec57d259d761965b5b5da3bfb57b1a80 (diff) | |
propellor spin
Diffstat (limited to 'Propellor')
| -rw-r--r-- | Propellor/Property/SiteSpecific/JoeySites.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Propellor/Property/SiteSpecific/JoeySites.hs b/Propellor/Property/SiteSpecific/JoeySites.hs index ba77eaca..6b149598 100644 --- a/Propellor/Property/SiteSpecific/JoeySites.hs +++ b/Propellor/Property/SiteSpecific/JoeySites.hs @@ -84,13 +84,16 @@ gitServer hosts = propertyList "git.kitenet.net setup" type AnnexUUID = String -- | A website, with files coming from a git-annex repository. -annexWebSite :: Git.RepoUrl -> HostName -> AnnexUUID -> [(String, Git.RepoUrl)] -> Property -annexWebSite origin hn uuid remotes = Git.cloned "joey" origin dir Nothing +annexWebSite :: [Host] -> Git.RepoUrl -> HostName -> AnnexUUID -> [(String, Git.RepoUrl)] -> Property +annexWebSite hosts origin hn uuid remotes = Git.cloned "joey" origin dir Nothing `onChange` setup `onChange` toProp (Apache.siteEnabled hn $ annexwebsiteconf hn) where dir = "/srv/web/" ++ hn - setup = userScriptProperty "joey" $ + setup = userScriptProperty "joey" setupscript + `requires` Ssh.keyImported SshRsa "joey" + `requires` Ssh.knownHost hosts "turtle.kitenet.net" "joey" + setupscript = [ "cd " ++ shellEscape dir , "git config annex.uuid " ++ shellEscape uuid ] ++ map addremote remotes ++ |