summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Firewall.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/Property/Firewall.hs')
-rw-r--r--src/Propellor/Property/Firewall.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Propellor/Property/Firewall.hs b/src/Propellor/Property/Firewall.hs
index bbc14473..ff7ffebf 100644
--- a/src/Propellor/Property/Firewall.hs
+++ b/src/Propellor/Property/Firewall.hs
@@ -18,6 +18,7 @@ module Propellor.Property.Firewall (
) where
import Data.Monoid
+import qualified Data.Semigroup as Sem
import Data.Char
import Data.List
@@ -199,6 +200,9 @@ data Rules
infixl 0 :-
+instance Sem.Semigroup Rules where
+ (<>) = (:-)
+
instance Monoid Rules where
mempty = Everything
- mappend = (:-)
+ mappend = (<>)