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

more descriptions

This commit is contained in:
Joey Hess 2014-03-30 16:04:50 -04:00
parent a2a3d3f3a2
commit 4d33b25ba3
Failed to extract signature
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Property/Apt.hs
View File

@ -17,6 +17,7 @@ type Url = String
type Section = String type Section = String
data Suite = Stable | Testing | Unstable | Experimental data Suite = Stable | Testing | Unstable | Experimental
deriving Show
showSuite :: Suite -> String showSuite :: Suite -> String
showSuite Stable = "stable" showSuite Stable = "stable"
@ -44,7 +45,8 @@ debCdn suite = [l, srcLine l]
{- 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 Suite. -} - with a particular Suite. -}
stdSourcesList :: Suite -> Property stdSourcesList :: Suite -> Property
stdSourcesList = setSourcesList . debCdn stdSourcesList suite = setSourcesList (debCdn suite)
`describe` ("standard sources.list for " ++ show suite)
setSourcesList :: [Line] -> Property setSourcesList :: [Line] -> Property
setSourcesList ls = sourcesList `File.hasContent` ls `onChange` update setSourcesList ls = sourcesList `File.hasContent` ls `onChange` update

1
Property/Hostname.hs
View File

@ -8,3 +8,4 @@ type HostName = String
set :: HostName -> Property set :: HostName -> Property
set hostname = "/etc/hostname" `File.hasContent` [hostname] set hostname = "/etc/hostname" `File.hasContent` [hostname]
`onChange` cmdProperty "hostname" [Param hostname] `onChange` cmdProperty "hostname" [Param hostname]
`describe` ("hostname " ++ hostname)