From 2a1f6a6d65771f045d1a56a0f698782122525284 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 19 May 2016 15:36:08 +0900 Subject: fix firewall monoid --- src/Propellor/Property/Sbuild.hs | 8 ++++---- 1 file 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 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 ==== -- cgit v1.2.3