From 12db6e459520f78cfa07cedbc45015f4090066a1 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 5 Dec 2023 13:38:30 -0700 Subject: Add ability to tile-drag --- src/Rahm/Desktop/Layout/Flip.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Rahm/Desktop/Layout') 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 -- cgit