From 4d33b25ba37d7dd91ffeb44b185d24d09f3c1320 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 30 Mar 2014 16:04:50 -0400 Subject: more descriptions --- Property/Apt.hs | 4 +++- Property/Hostname.hs | 1 + 2 files changed, 4 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3