aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
diff options
context:
space:
mode:
authorJosh Rahm <joshuarahm@gmail.com>2022-04-11 22:40:34 -0600
committerJosh Rahm <joshuarahm@gmail.com>2022-10-09 12:19:46 -0600
commit45fcba1681f4fda4f4ed380f00a8b6fbea681a59 (patch)
treefc9d3baf13a11eea83ea86fb28f5bcea7fca3566 /src/Rahm/Desktop/Layout/ReinterpretMessage.hs
parente5c89fe04061392cf102bb5286bbd203b81099de (diff)
downloadrde-45fcba1681f4fda4f4ed380f00a8b6fbea681a59.tar.gz
rde-45fcba1681f4fda4f4ed380f00a8b6fbea681a59.tar.bz2
rde-45fcba1681f4fda4f4ed380f00a8b6fbea681a59.zip
Add right click to move current window to a workspace.
Diffstat (limited to 'src/Rahm/Desktop/Layout/ReinterpretMessage.hs')
-rw-r--r--src/Rahm/Desktop/Layout/ReinterpretMessage.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
index 98bf779..8f6a78d 100644
--- a/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
+++ b/src/Rahm/Desktop/Layout/ReinterpretMessage.hs
@@ -20,7 +20,7 @@ class DoReinterpret (k :: t) where
-- Data construct for association a DoReinterpret function with a concrete
-- construct that can be used in the LayoutModifier instance.
--
--- It wolud be nice to have ReinterpretMessage hold the function as a value
+-- It would be nice to have ReinterpretMessage hold the function as a value
-- rather than delegate to this kind-instance, however, it won't work because
-- LayoutModifiers have to be Read-able and Show-able, and functions are neither
-- of those, so a value-level function may not be a member of a LayoutModifier,
@@ -35,7 +35,7 @@ instance (DoReinterpret k) =>
handleMessOrMaybeModifyIt self message = do
- -- Delegates to the reinterpretMessage function associatied with the
+ -- Delegates to the reinterpretMessage function associated with the
-- type-variable k.
newMessage <- reinterpretMessage (ofProxy self) message
case newMessage of