diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-23 17:54:05 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-23 17:54:05 +0200 |
| commit | c0e5d76ccf88dd7d19386c65b87260c4e03f39cd (patch) | |
| tree | f7759cc8c526ad5fb0f44e3789f9fac7e7b9f060 /ViewPrev.hs | |
| parent | a052f1e28ac2bd0e3751501889693f66521f5749 (diff) | |
| download | XMonadContrib-c0e5d76ccf88dd7d19386c65b87260c4e03f39cd.tar.gz XMonadContrib-c0e5d76ccf88dd7d19386c65b87260c4e03f39cd.tar.xz XMonadContrib-c0e5d76ccf88dd7d19386c65b87260c4e03f39cd.zip | |
cleanup in ViewPrev.
darcs-hash:20070823155405-72aca-b03e8eca31da9766fe3a61facc72d8ada67d1bfa.gz
Diffstat (limited to 'ViewPrev.hs')
| -rw-r--r-- | ViewPrev.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/ViewPrev.hs b/ViewPrev.hs index 840dd85..13a696b 100644 --- a/ViewPrev.hs +++ b/ViewPrev.hs @@ -21,8 +21,6 @@ import XMonad import Operations import qualified StackSet as W -viewPrev' :: (Eq a, Eq s, Eq i) => W.StackSet i a s sd -> W.StackSet i a s sd -viewPrev' x = W.view (W.tag . head . W.hidden $ x) x - viewPrev :: X () viewPrev = windows viewPrev' + where viewPrev' x = W.view (W.tag . head . W.hidden $ x) x |