From 96c3b17f6ebc60e9677216d4de9b150d4f6b1547 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Mon, 5 Nov 2007 03:22:02 +0100 Subject: -Wall police darcs-hash:20071105022202-cba2c-db3d34c1f7fa9c8b929516b55a4cf30f76e1ceea.gz --- XMonad/Layouts.hs | 4 ++-- 1 file 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 -- cgit v1.2.3