From c0e5d76ccf88dd7d19386c65b87260c4e03f39cd Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Thu, 23 Aug 2007 17:54:05 +0200
Subject: cleanup in ViewPrev.

darcs-hash:20070823155405-72aca-b03e8eca31da9766fe3a61facc72d8ada67d1bfa.gz
---
 ViewPrev.hs | 4 +---
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3