diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2015-09-12 17:35:58 +0200 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-09-12 12:07:33 -0400 |
| commit | 9003e331e4b225bd07e4c343ab77f975571cb7a3 (patch) | |
| tree | 2790b32b18afb3582a0e7730cfd45b9ab8af71a4 /src | |
| parent | 491f38584e8f7824dd397d81a9b90789eee14ed6 (diff) | |
DebianMirror: fix various typos
Signed-off-by: Félix Sipma <felix.sipma@no-log.org>
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/DebianMirror.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Propellor/Property/DebianMirror.hs b/src/Propellor/Property/DebianMirror.hs index aeac8d42..cd98b6ff 100644 --- a/src/Propellor/Property/DebianMirror.hs +++ b/src/Propellor/Property/DebianMirror.hs @@ -2,6 +2,7 @@ module Propellor.Property.DebianMirror ( DebianPriority(..) , showPriority , mirror + , mirrorCdn ) where import Propellor @@ -24,11 +25,11 @@ showPriority Standard = "standard" showPriority Optional = "optional" showPriority Extra = "extra" -mirror :: Url -> FilePath -> [DebianSuite] -> [Architecture] -> [Apt.Section] -> Bool -> [DebianPriority] -> Cron.Times -> Property NoInfo +mirror :: Apt.Url -> FilePath -> [DebianSuite] -> [Architecture] -> [Apt.Section] -> Bool -> [DebianPriority] -> Cron.Times -> Property NoInfo mirror url dir suites archs sections source priorities crontimes = propertyList ("Debian mirror " ++ dir) [ Apt.installed ["debmirror"] - , User.accountFor "debmirror" + , User.accountFor (User "debmirror") , File.dirExists dir , File.ownerGroup dir (User "debmirror") (Group "debmirror") , check (not . and <$> mapM suitemirrored suites) $ cmdProperty "debmirror" args |