summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/SiteSpecific/JoeySites.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs
index e5442867..6d4f2a18 100644
--- a/src/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -358,12 +358,16 @@ githubBackup = propertyList "github-backup box"
, "cd github"
, ". $HOME/.github-keys"
, "github-backup joeyh"
+ ]
+ , Cron.niceJob "gitriddance" "30 4 * * *" "joey"
+ "/home/joey/lib/backup" $ intercalate "&&" $
+ [ "cd github"
+ , ". $HOME/.github-keys"
] ++ 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
githubMirrors :: [(String, String)]