From 778249c66bebf51275966562b8dd2f3e9a8ed3e6 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Tue, 2 Dec 2025 11:09:34 +0000
Subject: [PATCH] Remove unused field

---
 app/Main.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 27ecc47..32621a8 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -51,7 +51,6 @@ data Puzzle input = Puzzle
     }
 data Part input = Part
     { solve :: input -> Text
-    , expected :: Text
     }
 
 puzzle1 :: Puzzle [(Direction, Inc)]
@@ -68,7 +67,6 @@ puzzle1 =
                         . traverse \(d, i) -> state \p ->
                             let (_, p') = step i d p
                              in (Count if p' == 0 then 1 else 0, p')
-                , expected = "3"
                 }
         , part2 =
             Part
@@ -86,7 +84,6 @@ puzzle1 =
                                             | p' == 0 -> abs c + 1
                                             | otherwise -> abs c
                              in (c', p')
-                , expected = "6"
                 }
         }
 
@@ -119,7 +116,6 @@ puzzle2 =
                         . sum
                         . concatMap
                             (mapMaybe (\n -> guard (isRepetition n) $> n) . uncurry enumFromTo)
-                , expected = "1227775554"
                 }
         , part2 = error "part 2 incomplete"
         }