summaryrefslogtreecommitdiff
path: root/Property
diff options
context:
space:
mode:
authorJoey Hess2014-03-30 16:04:50 -0400
committerJoey Hess2014-03-30 16:04:50 -0400
commit4d33b25ba37d7dd91ffeb44b185d24d09f3c1320 (patch)
tree06973cd9d444b0ef1fc9fd246fb88d416e4b7430 /Property
parenta2a3d3f3a252e64d80421b5a14ef572a7bdf9e4a (diff)
more descriptions
Diffstat (limited to 'Property')
-rw-r--r--Property/Apt.hs4
-rw-r--r--Property/Hostname.hs1
2 files changed, 4 insertions, 1 deletions
diff --git a/Property/Apt.hs b/Property/Apt.hs
index 724d5843..5c0a32c3 100644
--- a/Property/Apt.hs
+++ b/Property/Apt.hs
@@ -17,6 +17,7 @@ type Url = String
type Section = String
data Suite = Stable | Testing | Unstable | Experimental
+ deriving Show
showSuite :: Suite -> String
showSuite Stable = "stable"
@@ -44,7 +45,8 @@ debCdn suite = [l, srcLine l]
{- Makes sources.list have a standard content using the mirror CDN,
- with a particular Suite. -}
stdSourcesList :: Suite -> Property
-stdSourcesList = setSourcesList . debCdn
+stdSourcesList suite = setSourcesList (debCdn suite)
+ `describe` ("standard sources.list for " ++ show suite)
setSourcesList :: [Line] -> Property
setSourcesList ls = sourcesList `File.hasContent` ls `onChange` update
diff --git a/Property/Hostname.hs b/Property/Hostname.hs
index 8bc7a6b8..3d9d2ad0 100644
--- a/Property/Hostname.hs
+++ b/Property/Hostname.hs
@@ -8,3 +8,4 @@ type HostName = String
set :: HostName -> Property
set hostname = "/etc/hostname" `File.hasContent` [hostname]
`onChange` cmdProperty "hostname" [Param hostname]
+ `describe` ("hostname " ++ hostname)