Remove trailing space

2 files changed, 13 insertions, 13 deletions

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 5b2e5a8..1d3baf4 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -136,7 +136,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
 
@@ -176,13 +176,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))
@@ -212,7 +212,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.
@@ -227,9 +227,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)
 
@@ -370,7 +370,7 @@ keymap = runKeys $ do
       withRelativeWorkspace prev W.greedyView
 
   bind xK_plus $ do
-    justMod $ 
+    justMod $
       doc "Increase the number of windows in the master region." $
       sendMessage (IncMasterN 1)
 
@@ -383,7 +383,7 @@ keymap = runKeys $ do
       doc "Recompile and restart XMonad" $
       spawnX "xmonad --recompile && xmonad --restart"
 
-    justMod $ 
+    justMod $
       doc "Experimental Bindings" $
       subkeys $ do
 
@@ -430,16 +430,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
@@ -509,7 +509,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
diff --git a/src/Internal/KeysM.hs b/src/Internal/KeysM.hs
index fa9b49f..e490b89 100644
--- a/src/Internal/KeysM.hs
+++ b/src/Internal/KeysM.hs
@@ -377,7 +377,7 @@ altgrMod = maskMod altgrMask
 
 {- Can combine two or more of the functions above to apply the same action to
  - multiple masks. -}
-(-|-) :: (Binding k b) => 
+(-|-) :: (Binding k b) =>
           (k -> BindingBuilder b ()) ->
           (k -> BindingBuilder b ()) ->
           k -> BindingBuilder b ()