From ac7fca084e4c691aff4ced1ea91b121d714cee74 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 8 May 2007 17:24:49 +0200 Subject: Make tests typecheck darcs-hash:20070508152449-a5988-9c8631ebe825ce20e6513f74cb776fb69e0f8509 --- tests/Properties.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/Properties.hs b/tests/Properties.hs index e7a9854..6397b5e 100644 --- a/tests/Properties.hs +++ b/tests/Properties.hs @@ -57,7 +57,7 @@ size = M.size . stacks -- | Height of stack 'n' height :: Int -> T -> Int -height i w = length (index i w) +height i w = maybe 0 length (index i w) -- build (non-empty) StackSets with between 1 and 100 stacks -- -- cgit v1.2.3