diff options
Diffstat (limited to 'src/Rahm/Desktop/Layout/Flip.hs')
| -rw-r--r-- | src/Rahm/Desktop/Layout/Flip.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Layout/Flip.hs b/src/Rahm/Desktop/Layout/Flip.hs index b3162c9..1863a28 100644 --- a/src/Rahm/Desktop/Layout/Flip.hs +++ b/src/Rahm/Desktop/Layout/Flip.hs @@ -43,11 +43,11 @@ data DoFlip where -- DoFlip is a monoid. instance Semigroup DoFlip where - (<>) = mappend + (DoFlip a) <> (DoFlip b) = DoFlip (a . b) instance Monoid DoFlip where mempty = DoFlip id - mappend (DoFlip a) (DoFlip b) = DoFlip (a . b) + mappend = (<>) -- Makes a layout Flippable. flippable :: l a -> ModifiedLayout Flip l a |