diff options
| -rw-r--r-- | Property/Apt.hs | 4 | ||||
| -rw-r--r-- | Property/Hostname.hs | 1 |
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) |