summaryrefslogtreecommitdiff
path: root/src/Propellor
diff options
context:
space:
mode:
authorSean Whitton2017-07-30 19:03:10 -0700
committerJoey Hess2017-08-01 15:33:48 -0400
commit943b0489f17477102131030af750a1eb1669a4e2 (patch)
tree622d96a63d56a8ea02905943c7e44d2e5e004821 /src/Propellor
parent4500a4d8dc0a98754a59d994957d5ea87558c351 (diff)
fix types
Diffstat (limited to 'src/Propellor')
-rw-r--r--src/Propellor/Property/Sbuild.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index f5116c04..23f3b311 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -453,11 +453,12 @@ ccachePrepared = propertyList "sbuild group ccache configured" $ props
-- this property is handy for quickly setting up build boxes.
userConfig :: User -> Property DebianLike
userConfig user@(User u) = go
- `requires` usableBy
+ `requires` usableBy user
`requires` Apt.installed ["piuparts", "autopkgtest", "lintian"]
where
+ go :: Property DebianLike
go = property' ("~/.sbuildrc for " ++ u) $ \w -> do
- h <- liftIO (homedir user)
+ h <- liftIO (User.homedir user)
ensureProperty w $ File.hasContent (h </> ".sbuildrc")
[ "$run_lintian = 1;"
, ""