Make tests typecheck

This commit is contained in:
Spencer Janssen
2007-05-08 15:24:49 +00:00
parent a846eb18ff
commit 4afb251f41

View File

@@ -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
--