diff options
author | Adam Vogt <vogt.adam@gmail.com> | 2012-11-09 02:41:56 +0100 |
---|---|---|
committer | Adam Vogt <vogt.adam@gmail.com> | 2012-11-09 02:41:56 +0100 |
commit | 3147065b3ff8d0cade905909aa29946378298f76 (patch) | |
tree | 7a3b0d4a08853e43b3ee95873466cefb2b48c567 /XMonad/Util/Stack.hs | |
parent | 7f324e08476792e522987867c0f8098eeb0e50e0 (diff) | |
download | XMonadContrib-3147065b3ff8d0cade905909aa29946378298f76.tar.gz XMonadContrib-3147065b3ff8d0cade905909aa29946378298f76.tar.xz XMonadContrib-3147065b3ff8d0cade905909aa29946378298f76.zip |
Remove trailing whitespace.
Ignore-this: 72e3afb6e6df47c51262006601765365
darcs-hash:20121109014156-1499c-45797b245e25e966e4ca337ee224b593aaac63a0.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Util/Stack.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Util/Stack.hs b/XMonad/Util/Stack.hs index eb58a16..9455d71 100644 --- a/XMonad/Util/Stack.hs +++ b/XMonad/Util/Stack.hs @@ -145,7 +145,7 @@ swapUpZ (Just s) = Just s { W.up = reverse (W.down s), W.down = [] } swapDownZ :: Zipper a -> Zipper a swapDownZ Nothing = Nothing swapDownZ (Just s) | d:down <- W.down s = Just s { W.down = down, W.up = d:W.up s } -swapDownZ (Just s) = Just s { W.up = [], W.down = reverse (W.up s) } +swapDownZ (Just s) = Just s { W.up = [], W.down = reverse (W.up s) } -- | Swap the focused element with the first one swapMasterZ :: Zipper a -> Zipper a @@ -197,7 +197,7 @@ sortByZ f = fromTags . sortBy (adapt f) . toTags where adapt g e1 e2 = g (fromE e1) (fromE e2) -- ** Maps - + -- | Map a function over a stack. The boolean argument indcates whether -- the current element is the focused one mapZ :: (Bool -> a -> b) -> Zipper a -> Zipper b |