Format

2025-12-30 12:03:38 +00:00 · 2025-12-30 12:03:38 +00:00 · 5b24dc1238
commit 5b24dc1238
parent 2cd2341673
1 changed files with 12 additions and 9 deletions
--- a/haskell/Puzzles/Day4.hs
+++ b/haskell/Puzzles/Day4.hs
@ -29,8 +29,11 @@ puzzle =
            , withResource
                (Seq.fromList . takeUntil noneAccessible . fmap snd . generateFrames . mkGrid <$> input)
                mempty
-                \frames -> testGroup "frames" let nFrames = if isRealData then 58 else 9 in
-                    ( [0 .. nFrames] <&> \n ->
+                \frames ->
+                    testGroup
+                        "frames"
+                        let nFrames = if isRealData then 58 else 9
+                         in ( [0 .. nFrames] <&> \n ->
                                goldenVsStringDiff (show n) diffCommand (path <> "frames/" <> show n) $
                                    TL.encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames
                            )