diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-05 13:38:30 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-05 13:38:30 -0700 |
| commit | 12db6e459520f78cfa07cedbc45015f4090066a1 (patch) | |
| tree | 1fc4baf37038d7c287a6914aecd1542602bbd73a /src/Rahm/Desktop/Layout | |
| parent | 3c6488cc3d976fe47dda946b1a5c09828a86f4ec (diff) | |
| download | rde-12db6e459520f78cfa07cedbc45015f4090066a1.tar.gz rde-12db6e459520f78cfa07cedbc45015f4090066a1.tar.bz2 rde-12db6e459520f78cfa07cedbc45015f4090066a1.zip | |
Add ability to tile-drag
Diffstat (limited to 'src/Rahm/Desktop/Layout')
| -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 |