summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
authorSean Whitton2016-05-17 11:50:59 -0700
committerSean Whitton2016-05-17 11:50:59 -0700
commit6092d2dea35c0fdcb2ad95a51440603c4655cdab (patch)
treed4243a526a78cce0011f8e001a27b028c27bea2d /src/Propellor/Property/Sbuild.hs
parent7d39a7da893934348cad9462507c20f450ce0952 (diff)
more underscores
Diffstat (limited to 'src/Propellor/Property/Sbuild.hs')
-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