From 78b6df0e69c4b7abe2d27eb7dc1ae4c7a044e044 Mon Sep 17 00:00:00 2001 From: Tomas Janousek <tomi@nomi.cz> Date: Mon, 5 Apr 2021 21:24:43 +0100 Subject: [PATCH] Drop some recently added trailing whitespace --- CHANGES.md | 4 ++-- XMonad/Layout/Renamed.hs | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/CHANGES.md b/CHANGES.md index 49d787a5..66dddfb6 100644 --- a/CHANGES.md +++ b/CHANGES.md @@ -299,7 +299,7 @@ * `XMonad.Hooks.DynamicLog` - Added `xmobarProp`, for property-based alternative to `xmobar`. - + - Add the -dock argument to the dzen spawn arguments - The API for this module is frozen: this is now a compatibility wrapper. @@ -531,7 +531,7 @@ * `XMonad.Layout.Renamed` - - Added `KeepWordsLeft` and `KeepWordsRight` for keeping certain number of + - Added `KeepWordsLeft` and `KeepWordsRight` for keeping certain number of words in left or right direction in layout description. ## 0.16 diff --git a/XMonad/Layout/Renamed.hs b/XMonad/Layout/Renamed.hs index b464b260..3b349c9d 100644 --- a/XMonad/Layout/Renamed.hs +++ b/XMonad/Layout/Renamed.hs @@ -61,7 +61,7 @@ apply (CutLeft i) s = drop i s apply (CutRight i) s = take (length s - i) s apply (CutWordsLeft i) s = unwords $ drop i $ words s apply (CutWordsRight i) s = let ws = words s - in unwords $ take (length ws - i) ws + in unwords $ take (length ws - i) ws apply (KeepWordsLeft i) s = unwords $ take i $ words s apply (KeepWordsRight i) s = let ws = words s in unwords $ drop (length ws - i) ws