diff options
| author | Don Stewart <dons@galois.com> | 2007-11-05 03:22:02 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-11-05 03:22:02 +0100 |
| commit | 96c3b17f6ebc60e9677216d4de9b150d4f6b1547 (patch) | |
| tree | c91b09886a0c061ab1bd6733e71eec76185b7dc7 | |
| parent | 9d9587ef9a43e0fe35623428afc2e8715fd7eb08 (diff) | |
| download | xmonad-96c3b17f6ebc60e9677216d4de9b150d4f6b1547.tar.gz xmonad-96c3b17f6ebc60e9677216d4de9b150d4f6b1547.tar.xz xmonad-96c3b17f6ebc60e9677216d4de9b150d4f6b1547.zip | |
-Wall police
darcs-hash:20071105022202-cba2c-db3d34c1f7fa9c8b929516b55a4cf30f76e1ceea.gz
| -rw-r--r-- | XMonad/Layouts.hs | 4 |
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 |