[XMonad] Remove extra whitespace

This commit is contained in:
Ivan Malison 2016-11-30 17:19:19 -06:00
parent 37783d7c36
commit aab61f5b36
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -216,7 +216,7 @@ toggleStateToString s =
toggleToStringWithState :: (Transformer t Window, Show t) => t -> X String toggleToStringWithState :: (Transformer t Window, Show t) => t -> X String
toggleToStringWithState toggle = toggleToStringWithState toggle =
(printf "%s (%s)" (show toggle) . toggleStateToString) <$> printf "%s (%s)" (show toggle) . toggleStateToString <$>
isToggleActive toggle isToggleActive toggle
selectToggle = selectToggle =
@ -268,7 +268,6 @@ selectLayout =
DM.menuArgs "rofi" ["-dmenu", "-i"] layoutNames >>= DM.menuArgs "rofi" ["-dmenu", "-i"] layoutNames >>=
(sendMessage . JumpToLayout) (sendMessage . JumpToLayout)
myLayoutHook = myLayoutHook =
avoidStruts . minimize . boringAuto . mkToggle1 MIRROR . mkToggle1 LIMIT . avoidStruts . minimize . boringAuto . mkToggle1 MIRROR . mkToggle1 LIMIT .
mkToggle1 GAPS . mkToggle1 MAGICFOCUS . mkToggle1 NBFULL . workspaceNamesHook . mkToggle1 GAPS . mkToggle1 MAGICFOCUS . mkToggle1 NBFULL . workspaceNamesHook .