From 943b0489f17477102131030af750a1eb1669a4e2 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 30 Jul 2017 19:03:10 -0700 Subject: fix types --- src/Propellor/Property/Sbuild.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src') 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;" , "" -- cgit v1.2.3