From a48f5916e117ef375edc43f9f5134d6203aff154 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 23 Dec 2014 14:22:50 -0400 Subject: propellor spin --- src/Propellor/Property/SiteSpecific/JoeySites.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'src/Propellor/Property/SiteSpecific/JoeySites.hs') 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)] -- cgit v1.2.3