summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Propellor/Property/Sbuild.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index 8cb85bf3..0b4b106a 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -188,8 +188,8 @@ schrootFromSystem system@(System _ arch) =
>>= \suite -> return $ SbuildSchroot suite arch
stdMirror :: System -> Apt.Url
-stdMirror (System (Debian s) _) = "http://httpredir.debian.org/debian"
-stdMirror (System (Buntish r) _) = "TODO"
+stdMirror (System (Debian _) _) = "http://httpredir.debian.org/debian"
+stdMirror (System (Buntish _) _) = "TODO"
schrootRoot :: SbuildSchroot -> FilePath
schrootRoot (SbuildSchroot s a) = "/srv/chroot" </> s ++ "-" ++ a