From 0db6a2d1d8921dfae233feca19d7935f5c1423a5 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 11 Nov 2017 13:04:20 -0700 Subject: fix name shadowing --- src/Propellor/Property/Sbuild.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Propellor/Property/Sbuild.hs') diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs index e168d053..50f5f046 100644 --- a/src/Propellor/Property/Sbuild.hs +++ b/src/Propellor/Property/Sbuild.hs @@ -102,8 +102,8 @@ built cc ps = case schrootSystem ps of (architectureToDebianArchString arch) where schrootSystem :: Props metatypes -> Maybe System - schrootSystem (Props ps) = fromInfoVal . fromInfo $ - mconcat (map getInfo ps) + schrootSystem (Props ps') = fromInfoVal . fromInfo $ + mconcat (map getInfo ps') built' :: UseCcache @@ -135,8 +135,8 @@ built' cc (Props ps) suite arch = provisioned deleted where desc = "no sbuild schroot for " ++ suiteArch - conf suite arch = propertyList "sbuild config file" $ props - & pair "description" (suite ++ "/" ++ arch ++ " autobuilder") + conf suite' arch' = propertyList "sbuild config file" $ props + & pair "description" (suite' ++ "/" ++ arch' ++ " autobuilder") & pair "groups" "root,sbuild" & pair "root-groups" "root,sbuild" & pair "profile" "sbuild" -- cgit v1.2.3