summaryrefslogtreecommitdiff
path: root/Property/Apt.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Property/Apt.hs')
-rw-r--r--Property/Apt.hs4
1 files changed, 3 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