From 7ba96ee3e517dab5b986243094f48614467a3d28 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Fri, 5 Dec 2025 13:49:04 +0000 Subject: [PATCH] Shorten test name for cleaner CLI output --- haskell/Puzzles/Day4.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell/Puzzles/Day4.hs b/haskell/Puzzles/Day4.hs index 1715b7b..e4290dd 100644 --- a/haskell/Puzzles/Day4.hs +++ b/haskell/Puzzles/Day4.hs @@ -47,7 +47,7 @@ puzzle = goldenVsString (show n) (path <> "frames/" <> show n) $ encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames ) - <> [ testCase "nothing accessible in last frame" do + <> [ testCase "end" do Just g <- Seq.lookup nFrames <$> frames assertBool "accessible tile found" $ noneAccessible g ]