From 9003e331e4b225bd07e4c343ab77f975571cb7a3 Mon Sep 17 00:00:00 2001 From: Félix Sipma Date: Sat, 12 Sep 2015 17:35:58 +0200 Subject: DebianMirror: fix various typos Signed-off-by: Félix Sipma --- src/Propellor/Property/DebianMirror.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Propellor') 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 -- cgit v1.2.3