From 45fcba1681f4fda4f4ed380f00a8b6fbea681a59 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 11 Apr 2022 22:40:34 -0600 Subject: Add right click to move current window to a workspace. --- src/Rahm/Desktop/Layout/ReinterpretMessage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Rahm/Desktop/Layout') 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 -- cgit