summaryrefslogtreecommitdiffstats
path: root/tests/Properties.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/Properties.hs')
-rw-r--r--tests/Properties.hs2
1 files changed, 1 insertions, 1 deletions
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
--