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 | e68fe01a84582d5e5a94d2eab8c914484ae81dd7 (patch) | |
tree | 7cc0b7ede3b1efed764eda7eaa5e778b9c7350c7 /XMonad/Layout.hs | |
parent | b51abc61705e6ec421c68e2f86b97a78b42f5c1e (diff) | |
download | metatile-e68fe01a84582d5e5a94d2eab8c914484ae81dd7.tar metatile-e68fe01a84582d5e5a94d2eab8c914484ae81dd7.zip |
Various clean-ups suggested by HLint
Ignore-this: ccaa6e774f2f8169e6083eddcffe31b6
darcs-hash:20100214025750-25a6b-c15d6ca0ac2f1dc7d3da2f7b311584df7f96dffd
Diffstat (limited to 'XMonad/Layout.hs')
-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 = |