summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
authorSean Whitton2017-11-11 13:04:20 -0700
committerSean Whitton2017-11-11 13:04:30 -0700
commit0db6a2d1d8921dfae233feca19d7935f5c1423a5 (patch)
tree6a15ce38ef0f422b992395351abf7d8280499b6b /src/Propellor/Property/Sbuild.hs
parente27641b30f7086840841e350c751410c14d789bf (diff)
fix name shadowing
Diffstat (limited to 'src/Propellor/Property/Sbuild.hs')
-rw-r--r--src/Propellor/Property/Sbuild.hs8
1 files changed, 4 insertions, 4 deletions
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"