aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBrent Yorgey <byorgey@gmail.com>2007-10-29 18:41:50 +0100
committerBrent Yorgey <byorgey@gmail.com>2007-10-29 18:41:50 +0100
commitc6d5bedfa4762490581f8cd9f6d8f752b219f8e5 (patch)
tree9f3f5c5a0f4dc4b742d7268e0ca0978e585fbaba
parent6ea2b579cf1efa261ab728ce1139f908a9dc7f8d (diff)
downloadXMonadContrib-c6d5bedfa4762490581f8cd9f6d8f752b219f8e5.tar.gz
XMonadContrib-c6d5bedfa4762490581f8cd9f6d8f752b219f8e5.tar.xz
XMonadContrib-c6d5bedfa4762490581f8cd9f6d8f752b219f8e5.zip
fix parse error in pattern match
darcs-hash:20071029174150-bd4d7-b52b5b5ba2ce918f36f55171297164329a9eb964.gz
-rw-r--r--ToggleLayouts.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/ToggleLayouts.hs b/ToggleLayouts.hs
index a48ff15..ce15e52 100644
--- a/ToggleLayouts.hs
+++ b/ToggleLayouts.hs
@@ -76,8 +76,8 @@ instance (LayoutClass lt a, LayoutClass lf a) => LayoutClass (ToggleLayouts lt l
| Just ToggleLayout <- fromMessage m = do mlf' <- handleMessage lf (SomeMessage Hide)
let lf' = maybe lf id mlf'
return $ Just $ ToggleLayouts True lt lf'
- | Just (Toggle d),
- d == description lt || d == description lf <- fromMessage m =
+ | Just (Toggle d) <- fromMessage m,
+ d == description lt || d == description lf =
do mlf' <- handleMessage lf (SomeMessage Hide)
let lf' = maybe lf id mlf'
return $ Just $ ToggleLayouts True lt lf'