aboutsummaryrefslogtreecommitdiffstats
path: root/WindowNavigation.hs
diff options
context:
space:
mode:
Diffstat (limited to 'WindowNavigation.hs')
-rw-r--r--WindowNavigation.hs6
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 [] = []