From a7b4aa3dee30b51713ca0a952ab3289a33842074 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 13 Nov 2019 10:25:29 -0400 Subject: minor style tweak I'm not fond of the foo . bar $ v construct, not entirely sure why. --- src/Propellor/Property/Chroot.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/Property') 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 -- cgit v1.2.3