From f6771a713190a88c6b37ace27e686868a07dc6f6 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Sun, 4 Jan 2026 11:13:39 +0000 Subject: [PATCH] Check day 4 number of frames is as expected --- haskell/Puzzles/Day4.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/haskell/Puzzles/Day4.hs b/haskell/Puzzles/Day4.hs index 3d03749..b5bc351 100644 --- a/haskell/Puzzles/Day4.hs +++ b/haskell/Puzzles/Day4.hs @@ -34,6 +34,7 @@ puzzle = it (show n) . pureGoldenTextFile (path <> "frames/" <> show n) $ maybe "frame list too short!" drawGrid (Seq.lookup n frames) it "end" do + Seq.length frames `shouldBe` (nFrames + 1) Just g <- pure $ Seq.lookup nFrames frames (g `shouldSatisfyNamed` "accessible tile found") noneAccessible }