diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2007-10-29 18:41:50 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2007-10-29 18:41:50 +0100 |
| commit | c6d5bedfa4762490581f8cd9f6d8f752b219f8e5 (patch) | |
| tree | 9f3f5c5a0f4dc4b742d7268e0ca0978e585fbaba /ToggleLayouts.hs | |
| parent | 6ea2b579cf1efa261ab728ce1139f908a9dc7f8d (diff) | |
| download | XMonadContrib-c6d5bedfa4762490581f8cd9f6d8f752b219f8e5.tar.gz XMonadContrib-c6d5bedfa4762490581f8cd9f6d8f752b219f8e5.tar.xz XMonadContrib-c6d5bedfa4762490581f8cd9f6d8f752b219f8e5.zip | |
fix parse error in pattern match
darcs-hash:20071029174150-bd4d7-b52b5b5ba2ce918f36f55171297164329a9eb964.gz
Diffstat (limited to 'ToggleLayouts.hs')
| -rw-r--r-- | ToggleLayouts.hs | 4 |
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' |