diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-11-11 13:04:20 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-11-11 13:04:30 -0700 |
| commit | 0db6a2d1d8921dfae233feca19d7935f5c1423a5 (patch) | |
| tree | 6a15ce38ef0f422b992395351abf7d8280499b6b | |
| parent | e27641b30f7086840841e350c751410c14d789bf (diff) | |
fix name shadowing
| -rw-r--r-- | src/Propellor/Property/Sbuild.hs | 8 |
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" |