From fdb48b1dd11b802d0c2124fb3833672ca87ab870 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 3 Apr 2014 02:27:17 -0400 Subject: api doc improvements --- Propellor/Property/Apt.hs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'Propellor/Property/Apt.hs') diff --git a/Propellor/Property/Apt.hs b/Propellor/Property/Apt.hs index d3c5044a..8bbb1b19 100644 --- a/Propellor/Property/Apt.hs +++ b/Propellor/Property/Apt.hs @@ -46,12 +46,11 @@ debCdn = binandsrc "http://cdn.debian.net/debian" kernelOrg :: DebianSuite -> [Line] kernelOrg = binandsrc "http://mirrors.kernel.org/debian" -{- | Makes sources.list have a standard content using the mirror CDN, - - with a particular DebianSuite. - - - - Since the CDN is sometimes unreliable, also adds backup lines using - - kernel.org. - -} +-- | Makes sources.list have a standard content using the mirror CDN, +-- with a particular DebianSuite. +-- +-- Since the CDN is sometimes unreliable, also adds backup lines using +-- kernel.org. stdSourcesList :: DebianSuite -> Property stdSourcesList suite = setSourcesList (debCdn suite ++ kernelOrg suite) `describe` ("standard sources.list for " ++ show suite) @@ -113,7 +112,7 @@ buildDepIn dir = go `requires` installedMin ["devscripts", "equivs"] noninteractiveEnv -- | Package installation may fail becuse the archive has changed. --- Run an update in that case and retry. -} +-- Run an update in that case and retry. robustly :: Property -> Property robustly p = Property (propertyDesc p) $ do r <- ensureProperty p -- cgit v1.2.3