Remove trailing space

1 files changed, 13 insertions, 13 deletions

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index fcf233e..24495ff 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -134,7 +134,7 @@ keymap = runKeys $ do
       subkeys $ do
         bind xK_apostrophe $
           (noMod -|- justMod) $
-            doc "Jumps to the last window." $
+            doc "Jumps to the last window."
             jumpToLast
         mapAlpha 0 jumpToMark
 
@@ -174,13 +174,13 @@ keymap = runKeys $ do
       sendKey (0, xK_a) w
 
     justMod $
-      doc "Print this documentation" $
+      doc "Print this documentation"
       (safeSpawn "gxmessage" [
         "-fn", "Source Code Pro",
         documentation (keymap config)] :: X ())
 
   bind xK_F7 $
-    
+
     justMod $
       doc "Print this documentation." $
       logs (documentation (keymap config))
@@ -210,7 +210,7 @@ keymap = runKeys $ do
         doc ("Switch focus to screen " ++ show idx) $
         withScreen W.view idx
       -- Swap the current screen with the one given
-      altMod   $ 
+      altMod   $
         doc ("Swap the current screen with screen " ++ show idx) $
         withScreen W.greedyView idx
       -- Move the current window to the select screen.
@@ -225,9 +225,9 @@ keymap = runKeys $ do
     justMod $
       doc "Increase the gaps between windows." $
       sendMessage $ modifyWindowBorder 5
- 
+
   bind xK_bracketleft $ do
-    justMod $ 
+    justMod $
       doc "Decrease the gaps between windows." $
       sendMessage $ modifyWindowBorder (-5)
 
@@ -337,7 +337,7 @@ keymap = runKeys $ do
       relativeWorkspaceShift prev
 
   bind xK_plus $ do
-    justMod $ 
+    justMod $
       doc "Increase the number of windows in the master region." $
       sendMessage (IncMasterN 1)
 
@@ -350,7 +350,7 @@ keymap = runKeys $ do
       doc "Recompile and restart XMonad" $
       spawnX "xmonad --recompile && xmonad --restart"
 
-    justMod $ 
+    justMod $
       doc "Experimental Bindings" $
       subkeys $ do
 
@@ -375,7 +375,7 @@ keymap = runKeys $ do
 
 
           if abs (y' - y) > abs (x' - x)
-            then 
+            then
               if (y' - y) < 0
                 then logs "up"
                 else logs "down"
@@ -411,16 +411,16 @@ keymap = runKeys $ do
       repeatable $ do
         bind xK_h $
           justMod $
-             doc "Decrease volume." $
+             doc "Decrease volume."
              decreaseVolumeDoc
 
         bind xK_l $
           justMod $
-             doc "Increase volume." $
+             doc "Increase volume."
              increaseVolumeDoc
 
         bind xK_v $
-          justMod $ (return () :: X ())
+          justMod (return () :: X ())
 
   bind xK_w $ do
     justMod $ doc "Jump to a window (via rofi)" windowJump
@@ -489,7 +489,7 @@ keymap = runKeys $ do
 
         bind xK_s $
           (justMod -|- noMod) $
-            doc "Toggle the ability for terminals to swallow child windows." $
+            doc "Toggle the ability for terminals to swallow child windows."
             toggleSwallowEnabled
 
         bind xK_v $ do