From 0baf697296799f0146093287d9455c4a2dcef8f2 Mon Sep 17 00:00:00 2001
From: Max Rabkin <max.rabkin@gmail.com>
Date: Wed, 14 Oct 2009 22:22:13 +0200
Subject: Move limitSelect into L.LimitWindows

Ignore-this: 51d6e9da4a6a4f683cd145371e90be17

darcs-hash:20091014202213-a5338-1896e12a9c253692e03c0ac1d624fe0e26312e21.gz
---
 tests/test_Selective.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'tests/test_Selective.hs')

diff --git a/tests/test_Selective.hs b/tests/test_Selective.hs
index 4de4632..15ea5c0 100644
--- a/tests/test_Selective.hs
+++ b/tests/test_Selective.hs
@@ -1,6 +1,10 @@
 {-# LANGUAGE ScopedTypeVariables, FlexibleInstances #-}
 
-import XMonad.Layout.Selective
+-- Tests for limitSelect-related code in L.LimitWindows.
+-- To run these tests, export (select,update,Selection(..),updateAndSelect) from
+-- L.LimitWindows.
+
+import XMonad.Layout.LimitWindows
 import XMonad.StackSet hiding (focusUp, focusDown)
 import Control.Applicative ((<$>))
 import Test.QuickCheck
@@ -13,7 +17,7 @@ instance Arbitrary (Stack Int) where
                     return $ Stack { up=[xs-1,xs-2..0], focus=xs, down=[xs+1..xs+ys] }
     coarbitrary = undefined
 
-instance Arbitrary Selection where
+instance Arbitrary (Selection a) where
     arbitrary = do
                     nm <- arbNat
                     st <- arbNat
-- 
cgit v1.2.3