summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Chroot.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/Chroot.hs')
-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