summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Sbuild.hs
diff options
context:
space:
mode:
authorSean Whitton2016-05-19 15:36:08 +0900
committerSean Whitton2016-05-19 15:36:08 +0900
commit2a1f6a6d65771f045d1a56a0f698782122525284 (patch)
tree79f3473033733e2191ba77a03a11478579a2dbe2 /src/Propellor/Property/Sbuild.hs
parent41cda202087be38cf776c234f9e531aaf283b18f (diff)
fix firewall monoid
Diffstat (limited to 'src/Propellor/Property/Sbuild.hs')
-rw-r--r--src/Propellor/Property/Sbuild.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/Sbuild.hs b/src/Propellor/Property/Sbuild.hs
index a9c73816..0890bc3f 100644
--- a/src/Propellor/Property/Sbuild.hs
+++ b/src/Propellor/Property/Sbuild.hs
@@ -219,10 +219,10 @@ ccachePrepared = propertyList "sbuild group ccache configured" $ props
-- This is a hack from <https://wiki.debian.org/sbuild> until #802850 and
-- #802849 are resolved.
blockNetwork :: Property Linux
-blockNetwork = Firewall.rule OUTPUT Filter DROP
- ( GroupOwner (Group "sbuild")
- ++ NotDestination [IPWithNumMask "127.0.0.1" "8"]
- )
+blockNetwork = Firewall.rule Firewall.OUTPUT Firewall.Filter Firewall.DROP $
+ Firewall.GroupOwner (Group "sbuild")
+ `mappend` Firewall.NotDestination
+ [Firewall.IPWithNumMask (IPv4 "127.0.0.1") 8]
-- ==== utility functions ====