diff options
| author | Devin Mullins <me@twifkak.com> | 2008-09-21 03:11:59 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2008-09-21 03:11:59 +0200 |
| commit | 508debd233d9bddf5f5f8c8ad071fcbe52da4f0e (patch) | |
| tree | acf8b9e46e295dbb61db0b137456d4e32505da2d /XMonad/Actions/WindowNavigation.hs | |
| parent | 4f7c0734e3736dce79dda5656f6bd88540d9e9d1 (diff) | |
| download | XMonadContrib-508debd233d9bddf5f5f8c8ad071fcbe52da4f0e.tar.gz XMonadContrib-508debd233d9bddf5f5f8c8ad071fcbe52da4f0e.tar.xz XMonadContrib-508debd233d9bddf5f5f8c8ad071fcbe52da4f0e.zip | |
cleanup - use currentTag
darcs-hash:20080921011159-78224-b0ac172560719cba3a1c41171d91e222a6fa1304.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/WindowNavigation.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/WindowNavigation.hs b/XMonad/Actions/WindowNavigation.hs index 88c4db1..99b61b6 100644 --- a/XMonad/Actions/WindowNavigation.hs +++ b/XMonad/Actions/WindowNavigation.hs @@ -153,7 +153,7 @@ currentPosition posRef = do currentWindow <- gets (W.peek . windowset) currentRect <- maybe (Rectangle 0 0 0 0) snd <$> windowRect (fromMaybe root currentWindow) - wsid <- gets (W.tag . W.workspace . W.current . windowset) + wsid <- gets (W.currentTag . windowset) mp <- M.lookup wsid <$> io (readIORef posRef) return $ maybe (middleOf currentRect) (`inside` currentRect) mp @@ -162,7 +162,7 @@ currentPosition posRef = do setPosition :: IORef WNState -> Point -> Rectangle -> X () setPosition posRef oldPos newRect = do - wsid <- gets (W.tag . W.workspace . W.current . windowset) + wsid <- gets (W.currentTag . windowset) io $ modifyIORef posRef $ M.insert wsid (oldPos `inside` newRect) inside :: Point -> Rectangle -> Point |