diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-03-26 21:39:23 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-03-26 21:39:23 -0400 |
| commit | 3fe2aaee4abc51de1c4b92909bafdd88be49fd76 (patch) | |
| tree | a0db519f391ca048db4db9016b3c9ba97893592c /haskell/Data/VCDIFF/Types.hsc | |
| parent | 29105efba2db42dcce426a29a11539b3083ec356 (diff) | |
Added Semigroup instance.haskell
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) |