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 | b7068e1a38062df46bf2cfc158ecd6c13fb6f74b (patch) | |
| tree | c91b09886a0c061ab1bd6733e71eec76185b7dc7 | |
| parent | 9ef6d48de4bcdf7a974d73d0a76e89b7e77bf45b (diff) | |
| download | metatile-b7068e1a38062df46bf2cfc158ecd6c13fb6f74b.tar metatile-b7068e1a38062df46bf2cfc158ecd6c13fb6f74b.zip | |
-Wall police
darcs-hash:20071105022202-cba2c-db3d34c1f7fa9c8b929516b55a4cf30f76e1ceea
| -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 |