diff options
| author | Joey Hess <joey@kitenet.net> | 2014-06-06 22:49:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-06-06 22:49:55 -0400 |
| commit | a0aac3924479a643abadea1ca85a0e3968eabf4d (patch) | |
| tree | 6e9ee3cd7d742e7310caf26c203560ff195edc36 /src/Propellor | |
| parent | c3add08491ba90e7efc7856f200baa60531ec7d6 (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor')
| -rw-r--r-- | src/Propellor/Property/SiteSpecific/JoeySites.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/SiteSpecific/JoeySites.hs b/src/Propellor/Property/SiteSpecific/JoeySites.hs index 1055dbfb..120ea611 100644 --- a/src/Propellor/Property/SiteSpecific/JoeySites.hs +++ b/src/Propellor/Property/SiteSpecific/JoeySites.hs @@ -343,8 +343,8 @@ 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" + mkbase = mkdir "/home/joey/lib/backup" + `requires` mkdir "/home/joey/lib" mkrepo r = mkdir ("/home/joey/lib/backup/" ++ r ++ ".obnam") mkdir d = File.dirExists d `before` File.ownerGroup d "joey" "joey" |