diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2016-05-19 15:36:08 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2016-05-19 15:36:08 +0900 |
| commit | 2a1f6a6d65771f045d1a56a0f698782122525284 (patch) | |
| tree | 79f3473033733e2191ba77a03a11478579a2dbe2 /src | |
| parent | 41cda202087be38cf776c234f9e531aaf283b18f (diff) | |
fix firewall monoid
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/Sbuild.hs | 8 |
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 ==== |