propellor spin

1 files changed, 11 insertions, 0 deletions

diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs
index b44401ea..c66c167d 100644
--- a/src/Propellor/Property/SiteSpecific/JoeySites.hs
+++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs
@@ -338,3 +338,14 @@ githubBackup = propertyList "github-backup box"
 	  in File.hasPrivContent f
 		`onChange` File.ownerGroup f "joey" "joey"
 	]
+
+obnamRepos :: [String] -> Property
+obnamRepos rs = propertyList ("obnam repos for " ++ unwords rs)
+	(mkbase : map mkrepo rs)
+  where
+  	mkbase = mkdir "/home/joey/lib"
+		`before` mkdir "/home/joey/backup"
+	mkrepo r = mkdir ("/home/joey/lib/nackup/" ++ r ++ ".obnam")
+	mkdir d = File.dirExists d
+		`before` File.ownerGroup "joey" "joey" d
+