cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Propellor.Property.Firewall: coding style

This commit is contained in:
Antoine Eiche 2015-08-13 01:21:23 +02:00 committed by Joey Hess
parent ea2fbd01fe
commit f4abc3c1cb
2 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debian/changelog vendored
View File

@ -1,7 +1,7 @@
propellor (2.7.1) UNRELEASED; urgency=medium
* Make sure that make is installed when bootstrapping propellor.
* Fix bug in Firewall.toIpTableArg.
* Fix bug in Firewall's Port datatype to iptable parameter translation code.
Thanks, Antoine Eiche.
-- Joey Hess <id@joeyh.name> Wed, 12 Aug 2015 19:19:28 -0400

13
src/Propellor/Property/Firewall.hs
View File

@ -42,13 +42,14 @@ toIpTable r = map Param $
(toIpTableArg (ruleRules r)) ++ [ "-j" , show $ ruleTarget r ]
toIpTableArg :: Rules -> [String]
toIpTableArg Everything = []
toIpTableArg (Proto proto) = ["-p", map toLower $ show proto]
toIpTableArg Everything = []
toIpTableArg (Proto proto) = ["-p", map toLower $ show proto]
toIpTableArg (DPort (Port port)) = ["--dport", show port]
toIpTableArg (DPortRange (Port f, Port t)) = ["--dport", show f ++ ":" ++ show t]
toIpTableArg (IFace iface) = ["-i", iface]
toIpTableArg (Ctstate states) = ["-m", "conntrack","--ctstate", concat $ intersperse "," (map show states)]
toIpTableArg (r :- r') = toIpTableArg r <> toIpTableArg r'
toIpTableArg (DPortRange
(Port f, Port t)) = ["--dport", show f ++ ":" ++ show t]
toIpTableArg (IFace iface) = ["-i", iface]
toIpTableArg (Ctstate states) = ["-m", "conntrack","--ctstate", concat $ intersperse "," (map show states)]
toIpTableArg (r :- r') = toIpTableArg r <> toIpTableArg r'
data Rule = Rule
{ ruleChain :: Chain