aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Layout
diff options
context:
space:
mode:
Diffstat (limited to 'src/Rahm/Desktop/Layout')
-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