diff options
Diffstat (limited to 'src/Propellor/Property/Firewall.hs')
| -rw-r--r-- | src/Propellor/Property/Firewall.hs | 6 |
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 = (<>) |