Run hlint

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index d0305b3..728db52 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -187,7 +187,7 @@ keymap = runKeys $ do
   bind xK_F7 $
 
     justMod $
-      doc "Print this documentation." $
+      doc "Print this documentation."
       (logs Info "%s" (documentation (keymap config)) :: X ())
 
   bind xK_F10 $ do
@@ -223,7 +223,7 @@ keymap = runKeys $ do
         doc ("Move the current window to screne " ++ show idx) $
         withScreen W.shift idx
 
-      altgrMod $
+      altgrMod
         (logs Info "Test altgr" :: X ())
 
   bind xK_bracketright $ do
@@ -519,7 +519,7 @@ keymap = runKeys $ do
             doc "Go to the prior window in the history" historyBack
 
         bind xK_t $ do
-          (justMod -|- noMod) $ (logs Info "Test Log" :: X ())
+          (justMod -|- noMod) (logs Info "Test Log" :: X ())
 
         -- bind xK_n $ do
         --   (justMod -|- noMod) $
@@ -612,7 +612,7 @@ keymap = runKeys $ do
         ["-t", "2000", printf "LogLevel set to %s" (show next)]
       setLogLevel next
       logs next "LogLevel set to %s." (show next)
-      
+
 
   bind xF86XK_Calculator $ do
     noMod $ spawnX $ terminal config ++ " -t Floating\\ Term -e /usr/bin/env python3"
@@ -859,7 +859,7 @@ windowSpecificBindings config = do
 
     bind xK_F2 $
       -- Experimental.
-      noMod $ (logs Info "This is a test" :: X ())
+      noMod (logs Info "This is a test" :: X ())
 
   -- Add a binding to xev as a test.
   configureIf (title =? "Event Tester") $