diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-08 17:24:49 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-05-08 17:24:49 +0200 |
commit | 3cbf9325cd86088fcb1d9a90215ca9f184dd0385 (patch) | |
tree | eb93e120bb3cfa16b519aa5e3aaaeaf22b25e75a /tests | |
parent | d88e56e11df1884a49237ac40b2027cc3ed673d4 (diff) | |
download | xmonad-3cbf9325cd86088fcb1d9a90215ca9f184dd0385.tar.gz xmonad-3cbf9325cd86088fcb1d9a90215ca9f184dd0385.tar.xz xmonad-3cbf9325cd86088fcb1d9a90215ca9f184dd0385.zip |
Make tests typecheck
darcs-hash:20070508152449-a5988-9c8631ebe825ce20e6513f74cb776fb69e0f8509.gz
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Properties.hs | 2 |
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 -- |