From 6092d2dea35c0fdcb2ad95a51440603c4655cdab Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 17 May 2016 11:50:59 -0700 Subject: more underscores --- src/Propellor/Property/Sbuild.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property') 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 -- cgit v1.2.3