summaryrefslogtreecommitdiff
path: root/src/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2019-11-13 10:25:29 -0400
committerJoey Hess2019-11-13 10:25:29 -0400
commita7b4aa3dee30b51713ca0a952ab3289a33842074 (patch)
tree21b2338e8fd1bb1256d06c2ced863641415fb0f4 /src/Propellor/Property
parent67449c0c197bdea5d6aa488b74023e93400dbb6f (diff)
minor style tweak
I'm not fond of the foo . bar $ v construct, not entirely sure why.
Diffstat (limited to 'src/Propellor/Property')
-rw-r--r--src/Propellor/Property/Chroot.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Property/Chroot.hs b/src/Propellor/Property/Chroot.hs
index 971fd8ba..1a2fd6c8 100644
--- a/src/Propellor/Property/Chroot.hs
+++ b/src/Propellor/Property/Chroot.hs
@@ -344,8 +344,8 @@ useHostProxy h = property' "use host's apt proxy" $ \w ->
-- Note that we can't look at getProxyInfo outside the property,
-- as that would loop, but it's ok to look at it inside the
-- property. Thus the slightly strange construction here.
- case getProxyInfo of
+ case getProxyInfo h of
Just (Apt.HostAptProxy u) -> ensureProperty w (Apt.proxy' u)
Nothing -> noChange
where
- getProxyInfo = fromInfoVal . fromInfo . hostInfo $ h
+ getProxyInfo = fromInfoVal . fromInfo . hostInfo