diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-29 21:12:38 +0200 |
| commit | 2e07689ceadaea1853c1228d14346853223be942 (patch) | |
| tree | 69a6f1aed8bf082fd711a366baf3bf62534d9145 /WindowNavigation.hs | |
| parent | 7c1d1059d2626927bbc553f0efccb0b472fa569f (diff) | |
| download | XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.gz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.tar.xz XMonadContrib-2e07689ceadaea1853c1228d14346853223be942.zip | |
some renaming of classes and data types.
darcs-hash:20070929191238-72aca-ceb0f2a89b35460e87cf9ff935f786b5a6028fb5.gz
Diffstat (limited to 'WindowNavigation.hs')
| -rw-r--r-- | WindowNavigation.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/WindowNavigation.hs b/WindowNavigation.hs index 5f3e643..91c1880 100644 --- a/WindowNavigation.hs +++ b/WindowNavigation.hs @@ -93,7 +93,7 @@ instance LayoutModifier WindowNavigation Window where --mapM_ (\(w,c) -> sc c w) wnavigablec return (wrs, Just $ WindowNavigation $ I $ Just $ NS pt wnavigable) - modifyModify (WindowNavigation (I (Just (NS pt wrs)))) m + handleMess (WindowNavigation (I (Just (NS pt wrs)))) m | Just (Go d) <- fromMessage m = case sortby d $ filter (inr d pt . snd) wrs of [] -> return Nothing @@ -105,8 +105,8 @@ instance LayoutModifier WindowNavigation Window where mapM_ (sc (Just nbc) . fst) wrs return $ Just $ WindowNavigation $ I $ Just $ NS pt [] | Just ReleaseResources <- fromMessage m = - modifyModify (WindowNavigation (I $ Just (NS pt wrs))) (SomeMessage Hide) - modifyModify _ _ = return Nothing + handleMess (WindowNavigation (I $ Just (NS pt wrs))) (SomeMessage Hide) + handleMess _ _ = return Nothing truncHead (x:_) = [x] truncHead [] = [] |