diff options
Diffstat (limited to 'haskell/Data/VCDIFF/Types.hsc')
-rw-r--r-- | haskell/Data/VCDIFF/Types.hsc | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/haskell/Data/VCDIFF/Types.hsc b/haskell/Data/VCDIFF/Types.hsc index 015f406..54237b8 100644 --- a/haskell/Data/VCDIFF/Types.hsc +++ b/haskell/Data/VCDIFF/Types.hsc | |||
@@ -167,6 +167,9 @@ pattern XD3_COMPLEVEL_3 = Flags (#const XD3_COMPLEVEL_3) | |||
167 | pattern XD3_COMPLEVEL_6 = Flags (#const XD3_COMPLEVEL_6) | 167 | pattern XD3_COMPLEVEL_6 = Flags (#const XD3_COMPLEVEL_6) |
168 | pattern XD3_COMPLEVEL_9 = Flags (#const XD3_COMPLEVEL_9) | 168 | pattern XD3_COMPLEVEL_9 = Flags (#const XD3_COMPLEVEL_9) |
169 | 169 | ||
170 | instance Semigroup Flags where | ||
171 | Flags a <> Flags b = Flags (a .|. b) | ||
172 | |||
170 | instance Monoid Flags where | 173 | instance Monoid Flags where |
171 | mempty = Flags 0 | 174 | mempty = Flags 0 |
172 | Flags a `mappend` Flags b = Flags (a .|. b) | 175 | Flags a `mappend` Flags b = Flags (a .|. b) |