diff --git a/haskell/Puzzles/Day4.hs b/haskell/Puzzles/Day4.hs
index ad758fe..104cbca 100644
--- a/haskell/Puzzles/Day4.hs
+++ b/haskell/Puzzles/Day4.hs
@@ -29,15 +29,18 @@ 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 ->
-                        goldenVsStringDiff (show n) diffCommand (path <> "frames/" <> show n) $
-                            TL.encodeUtf8 . maybe "frame list too short!" drawGrid . Seq.lookup n <$> frames
-                    )
-                        <> [ testCase "end" do
-                                Just g <- Seq.lookup nFrames <$> frames
-                                assertBool "accessible tile found" $ noneAccessible g
-                           ]
+                \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
+                            )
+                                <> [ testCase "end" do
+                                        Just g <- Seq.lookup nFrames <$> frames
+                                        assertBool "accessible tile found" $ noneAccessible g
+                                   ]
             ]
         }