cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-02 00:05:10 -04:00
parent 29bd0c3689
commit 3f96e5a5f3
Failed to extract signature
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Propellor/Property/Apt.hs
View File

@ -35,13 +35,23 @@ srcLine l = case words l of
stdSections :: [Section] stdSections :: [Section]
stdSections = ["main", "contrib", "non-free"] stdSections = ["main", "contrib", "non-free"]
debCdn :: DebianSuite -> [Line] binandsrc :: String -> DebianSuite -> [Line]
debCdn suite = [l, srcLine l] binandsrc url suite = [l, srcLine l]
where where
l = debLine suite "http://cdn.debian.net/debian" stdSections l = debLine suite url stdSections
debCdn :: DebianSuite -> [Line]
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, {- | Makes sources.list have a standard content using the mirror CDN,
- with a particular DebianSuite. -} - with a particular DebianSuite.
-
- Since the CDN is sometimes unreliable, also adds backup lines using
- kernel.org.
-}
stdSourcesList :: DebianSuite -> Property stdSourcesList :: DebianSuite -> Property
stdSourcesList suite = setSourcesList (debCdn suite) stdSourcesList suite = setSourcesList (debCdn suite)
`describe` ("standard sources.list for " ++ show suite) `describe` ("standard sources.list for " ++ show suite)