summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-12-22 17:16:52 -0400
committerJoey Hess2014-12-22 17:16:52 -0400
commitb8be8c244eb2e5bd4863f1679706c9e026d17838 (patch)
tree5d47b37314d126afba98931e50ca57ca65af678c /src
parent26a4c164e46bf0ddc13674b9dd21813f067814d9 (diff)
propellor spin
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/Property/SiteSpecific/JoeySites.hs21
1 files changed, 15 insertions, 6 deletions
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs
index 930937c3..e5442867 100644
--- a/src/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -358,15 +358,24 @@ githubBackup = propertyList "github-backup box"
, "cd github"
, ". $HOME/.github-keys"
, "github-backup joeyh"
- ] ++ map gitriddance mirrors
+ ] ++ map gitriddance githubMirrors
]
where
gitriddance (r, msg) = "(cd " ++ r ++ " && gitriddance " ++ shellEscape msg ++ ")"
- -- these repos are only mirrored on github, I don't want
- -- all the proprietary features
- mirrors =
- [ ("ikiwiki", "please submit changes to http://ikiwiki.info/todo/ instead of using github pull requests")
- ]
+
+
+-- these repos are only mirrored on github, I don't want
+-- all the proprietary features
+githubMirrors :: [(String, String)]
+githubMirrors =
+ [ ("ikiwiki", plzuseurl "http://ikiwiki.info/todo/")
+ , ("git-annex", plzuseurl "http://git-annex.branchable.com/todo/")
+ , ("myrepos", plzuseurl "http://myrepos.branchable.com/todo/")
+ , ("propellor", plzuseurl "http://propellor.branchable.com/todo/")
+ , ("etckeeper", plzuseurl "http://etckeeper.branchable.com/todo/")
+ ]
+ where
+ plzuseurl u = "please submit changes to " ++ u ++ " instead of using github pull requests"
rsyncNetBackup :: [Host] -> Property
rsyncNetBackup hosts = Cron.niceJob "rsync.net copied in daily" "30 5 * * *"