From c6fcacb6e41f678757599b00eb653b3df489f19a Mon Sep 17 00:00:00 2001 From: FĂ©lix Sipma Date: Thu, 4 Feb 2016 14:09:32 +0100 Subject: Firewall: minor hlint fixes (cherry picked from commit d4653a2c4683ff3eeb4decbb3c61bb9e9cef2c64) --- src/Propellor/Property/Firewall.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/Propellor') diff --git a/src/Propellor/Property/Firewall.hs b/src/Propellor/Property/Firewall.hs index 13db38df..2dff2953 100644 --- a/src/Propellor/Property/Firewall.hs +++ b/src/Propellor/Property/Firewall.hs @@ -33,13 +33,13 @@ rule c t rs = property ("firewall rule: " <> show r) addIpTable if exist then return NoChange else toResult <$> boolSystem "iptables" (add args) - add params = (Param "-A") : params - chk params = (Param "-C") : params + add params = Param "-A" : params + chk params = Param "-C" : params toIpTable :: Rule -> [CommandParam] toIpTable r = map Param $ - (show $ ruleChain r) : - (toIpTableArg (ruleRules r)) ++ [ "-j" , show $ ruleTarget r ] + show (ruleChain r) : + toIpTableArg (ruleRules r) ++ [ "-j" , show $ ruleTarget r ] toIpTableArg :: Rules -> [String] toIpTableArg Everything = [] @@ -52,15 +52,15 @@ toIpTableArg (OutIFace iface) = ["-o", iface] toIpTableArg (Ctstate states) = [ "-m" , "conntrack" - , "--ctstate", concat $ intersperse "," (map show states) + , "--ctstate", intercalate "," (map show states) ] toIpTableArg (Source ipwm) = [ "-s" - , concat $ intersperse "," (map fromIPWithMask ipwm) + , intercalate "," (map fromIPWithMask ipwm) ] toIpTableArg (Destination ipwm) = [ "-d" - , concat $ intersperse "," (map fromIPWithMask ipwm) + , intercalate "," (map fromIPWithMask ipwm) ] toIpTableArg (r :- r') = toIpTableArg r <> toIpTableArg r' -- cgit v1.2.3