diff options
author | Joey Hess <joeyh@joeyh.name> | 2019-11-13 10:25:29 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2019-11-13 10:25:29 -0400 |
commit | a7b4aa3dee30b51713ca0a952ab3289a33842074 (patch) | |
tree | 21b2338e8fd1bb1256d06c2ced863641415fb0f4 /src | |
parent | 67449c0c197bdea5d6aa488b74023e93400dbb6f (diff) |
minor style tweak
I'm not fond of the foo . bar $ v construct, not entirely sure why.
Diffstat (limited to 'src')
-rw-r--r-- | src/Propellor/Property/Chroot.hs | 4 |
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 |