diff options
| author | gwern0 <gwern0@gmail.com> | 2010-03-14 22:00:12 +0100 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2010-03-14 22:00:12 +0100 |
| commit | 3a5b4dc676be9a9e2bf39bcffc93b55b76e9c9c3 (patch) | |
| tree | 329f40e293fbff87c39f9d8f304694d155446875 /XMonad | |
| parent | a901c04eb3ca07446397a6435c31d3c3774c82ac (diff) | |
| download | XMonadContrib-3a5b4dc676be9a9e2bf39bcffc93b55b76e9c9c3.tar.gz XMonadContrib-3a5b4dc676be9a9e2bf39bcffc93b55b76e9c9c3.tar.xz XMonadContrib-3a5b4dc676be9a9e2bf39bcffc93b55b76e9c9c3.zip | |
DecorationAddons.hs: rm trailing whitespace
Ignore-this: 2f54649e43ebf11e35bd8764d1a44675
darcs-hash:20100314210012-f7719-d69c5858a063db7baf6efd958f350297977cf5d9.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/DecorationAddons.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/DecorationAddons.hs b/XMonad/Layout/DecorationAddons.hs index 798a289..9192e54 100644 --- a/XMonad/Layout/DecorationAddons.hs +++ b/XMonad/Layout/DecorationAddons.hs @@ -87,7 +87,7 @@ handleScreenCrossing w decoWin = withDisplay $ \d -> do ws <- gets windowset sc <- fromMaybe (W.current ws) <$> pointScreen (fi px) (fi py) maybeWksp <- screenWorkspace $ W.screen sc - let targetWksp = maybeWksp >>= \wksp -> + let targetWksp = maybeWksp >>= \wksp -> W.findTag w ws >>= \currentWksp -> if (currentWksp /= wksp) then Just wksp |