twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix parse error in pattern match

Browse Source
This commit is contained in:
Brent Yorgey 2007-10-29 17:41:50 +00:00
parent 8ab680ede3
commit b091f3e28f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ToggleLayouts.hs
View File

@ -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) | Just ToggleLayout <- fromMessage m = do mlf' <- handleMessage lf (SomeMessage Hide)
let lf' = maybe lf id mlf' let lf' = maybe lf id mlf'
return $ Just $ ToggleLayouts True lt lf' return $ Just $ ToggleLayouts True lt lf'
| Just (Toggle d), | Just (Toggle d) <- fromMessage m,
d == description lt || d == description lf <- fromMessage m = d == description lt || d == description lf =
do mlf' <- handleMessage lf (SomeMessage Hide) do mlf' <- handleMessage lf (SomeMessage Hide)
let lf' = maybe lf id mlf' let lf' = maybe lf id mlf'
return $ Just $ ToggleLayouts True lt lf' return $ Just $ ToggleLayouts True lt lf'