From 7ee7b458ce69ee333a95203e9aecbadbc821b0d7 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Mon, 5 Jan 2026 15:04:58 +0000
Subject: [PATCH] Format

---
 haskell/Main.hs | 54 ++++++++++++++++++++++++-------------------------
 1 file changed, 27 insertions(+), 27 deletions(-)

diff --git a/haskell/Main.hs b/haskell/Main.hs
index e189a6f..10b9142 100644
--- a/haskell/Main.hs
+++ b/haskell/Main.hs
@@ -34,30 +34,30 @@ main =
             , Day10.puzzle
             ]
             \Puzzle{number = show -> pt, parser, parts, extraTests} ->
-                    TestTree
-                        (mkTestName pt)
-                        ( \() -> do
-                            let fp = "../inputs/" <> t <> "/" <> pt
-                            input <-
-                                either (fail . ("parse failure: " <>) . errorBundlePretty) pure
-                                    . runParser (parser isRealData <* eof) fp
-                                    =<< T.readFile fp
-                            let (rs, os) =
-                                    (foldHListF0 ((:) . fst) [] &&& foldHListF (HCons . snd) HNil) $
-                                        mapHListF (\(Fanout (f, Op o)) -> (o &&& id) $ f input) parts
-                             in pure (input, rs, os)
-                        )
-                        $ ( flip map ([0 :: Int .. hlistfLength parts - 1]) $
-                                \n@(show . succ -> nt) ->
-                                    TestTree
-                                        (mkTestName nt)
-                                        ( \(_, rs, _) -> do
-                                            golden ("../outputs/" <> t <> "/" <> pt <> "/" <> nt) $ (rs !! n) <> "\n"
-                                        )
-                                        []
-                          )
-                            <> [ TestTree
-                                    "extra"
-                                    (\(input, _, os) -> pure (input, os))
-                                    $ extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/")
-                               ]
+                TestTree
+                    (mkTestName pt)
+                    ( \() -> do
+                        let fp = "../inputs/" <> t <> "/" <> pt
+                        input <-
+                            either (fail . ("parse failure: " <>) . errorBundlePretty) pure
+                                . runParser (parser isRealData <* eof) fp
+                                =<< T.readFile fp
+                        let (rs, os) =
+                                (foldHListF0 ((:) . fst) [] &&& foldHListF (HCons . snd) HNil) $
+                                    mapHListF (\(Fanout (f, Op o)) -> (o &&& id) $ f input) parts
+                         in pure (input, rs, os)
+                    )
+                    $ ( flip map ([0 :: Int .. hlistfLength parts - 1]) $
+                            \n@(show . succ -> nt) ->
+                                TestTree
+                                    (mkTestName nt)
+                                    ( \(_, rs, _) -> do
+                                        golden ("../outputs/" <> t <> "/" <> pt <> "/" <> nt) $ (rs !! n) <> "\n"
+                                    )
+                                    []
+                      )
+                        <> [ TestTree
+                                "extra"
+                                (\(input, _, os) -> pure (input, os))
+                                $ extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/")
+                           ]