aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-11-05 03:22:02 +0100
committerDon Stewart <dons@galois.com>2007-11-05 03:22:02 +0100
commit96c3b17f6ebc60e9677216d4de9b150d4f6b1547 (patch)
treec91b09886a0c061ab1bd6733e71eec76185b7dc7
parent9d9587ef9a43e0fe35623428afc2e8715fd7eb08 (diff)
downloadxmonad-96c3b17f6ebc60e9677216d4de9b150d4f6b1547.tar.gz
xmonad-96c3b17f6ebc60e9677216d4de9b150d4f6b1547.tar.xz
xmonad-96c3b17f6ebc60e9677216d4de9b150d4f6b1547.zip
-Wall police
darcs-hash:20071105022202-cba2c-db3d34c1f7fa9c8b929516b55a4cf30f76e1ceea.gz
-rw-r--r--XMonad/Layouts.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layouts.hs b/XMonad/Layouts.hs
index 862b70c..ed85ffe 100644
--- a/XMonad/Layouts.hs
+++ b/XMonad/Layouts.hs
@@ -76,8 +76,8 @@ instance (LayoutClass l a, LayoutClass r a) => LayoutClass (Choose l r) a where
(fmap (fromMaybe l) $ handleMessage l m)
(fmap (fromMaybe r) $ handleMessage r m)
where (cons, l, r) = case lr of
- (SLeft r l) -> (flip SLeft, l, r)
- (SRight l r) -> (SRight, l, r)
+ (SLeft r' l') -> (flip SLeft, l', r')
+ (SRight l' r') -> (SRight, l', r')
-- The default cases for left and right:
handleMessage (SLeft r l) m = fmap (fmap $ SLeft r) $ handleMessage l m