summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorJoey Hess2014-12-23 14:22:50 -0400
committerJoey Hess2014-12-23 14:22:50 -0400
commita48f5916e117ef375edc43f9f5134d6203aff154 (patch)
treeece2b3ded70822e8bcb5b8fb0d5f2deab1b1d1ca /src/Propellor
parentb8be8c244eb2e5bd4863f1679706c9e026d17838 (diff)
propellor spin
Diffstat (limited to 'src/Propellor')
-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)]