From 90f0a646a3e5cb7a00ef9320da6cee93f1d506cf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Toni=20M=C3=A4ki-Leppilampi?= Date: Sun, 29 Jan 2023 11:23:49 +0200 Subject: [PATCH] Update Tests.hs The second case does not play well with `head` on line 21. Perhaps this would fix the broken test case? --- exercises/practice/saddle-points/test/Tests.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/exercises/practice/saddle-points/test/Tests.hs b/exercises/practice/saddle-points/test/Tests.hs index efc0b93da..c16f50b68 100644 --- a/exercises/practice/saddle-points/test/Tests.hs +++ b/exercises/practice/saddle-points/test/Tests.hs @@ -18,7 +18,7 @@ specs = describe "saddlePoints" $ for_ cases test where assertion = saddlePoints matrix `shouldBe` expected rows = length xss - columns = length $ head xss + columns = if null xss then 0 else length $ head xss matrix = listArray ((1, 1), (rows, columns)) (concat xss) cases = [ ( "Example from README",