diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2010-02-14 03:57:50 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2010-02-14 03:57:50 +0100 |
commit | 744a7ec219e58f40daf5bacc088c10da91269f4e (patch) | |
tree | 7cc0b7ede3b1efed764eda7eaa5e778b9c7350c7 /XMonad/Layout.hs | |
parent | f9cce225daf6c837da199f36146adc95166874bb (diff) | |
download | xmonad-744a7ec219e58f40daf5bacc088c10da91269f4e.tar.gz xmonad-744a7ec219e58f40daf5bacc088c10da91269f4e.tar.xz xmonad-744a7ec219e58f40daf5bacc088c10da91269f4e.zip |
Various clean-ups suggested by HLint
Ignore-this: ccaa6e774f2f8169e6083eddcffe31b6
darcs-hash:20100214025750-25a6b-c15d6ca0ac2f1dc7d3da2f7b311584df7f96dffd.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout.hs b/XMonad/Layout.hs index 96947f5..faa2246 100644 --- a/XMonad/Layout.hs +++ b/XMonad/Layout.hs @@ -125,7 +125,7 @@ instance LayoutClass l a => LayoutClass (Mirror l) a where -- | Mirror a rectangle. mirrorRect :: Rectangle -> Rectangle -mirrorRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw) +mirrorRect (Rectangle rx ry rw rh) = Rectangle ry rx rh rw ------------------------------------------------------------------------ -- LayoutClass selection manager @@ -173,7 +173,7 @@ choose (Choose d l r) d' ml mr = f lr instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where runLayout (W.Workspace i (Choose L l r) ms) = - fmap (second . fmap $ flip (Choose L) $ r) . runLayout (W.Workspace i l ms) + fmap (second . fmap $ flip (Choose L) r) . runLayout (W.Workspace i l ms) runLayout (W.Workspace i (Choose R l r) ms) = fmap (second . fmap $ Choose R l) . runLayout (W.Workspace i r ms) @@ -194,7 +194,7 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where R -> choose c R Nothing =<< handle r NextNoWrap - handleMessage c@(Choose _ l _) m | Just FirstLayout <- fromMessage m = do + handleMessage c@(Choose _ l _) m | Just FirstLayout <- fromMessage m = flip (choose c L) Nothing =<< handle l FirstLayout handleMessage c@(Choose d l r) m | Just ReleaseResources <- fromMessage m = |