X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=src%2Fadvent24%2Fadvent24.hs;h=f048c65d00ad40b2ddf2d4660c40fcfe37f7b460;hb=f12a6a3138c30e2a034daef9d75567694f7213b5;hp=df3136b9e3e138c49b300c9e6a45290cdc9242c6;hpb=11ba4341db1d4ae5d0c0fcc966b1e03759ea36fe;p=advent-of-code-17.git

diff --git a/src/advent24/advent24.hs b/src/advent24/advent24.hs
index df3136b..f048c65 100644
--- a/src/advent24/advent24.hs
+++ b/src/advent24/advent24.hs
@@ -70,7 +70,7 @@ extendOneBridge parts bridge =
 grow :: Bridge -> Part -> Bridge
 grow bridge part = bridge {bridgeParts = bp', requiring = req'}
     where req = requiring bridge
-          req' = B.findMin $ B.delete req part
+          req' = B.findMin $ B.delete req part -- can get away with `findMin` as I know there are only two elements in a `Part`
           bp' = B.insert part $ bridgeParts bridge
 
 candidates :: Parts -> Bridge -> Candidates
@@ -104,11 +104,11 @@ integer = lexeme L.integer
 symbol = L.symbol sc
 slash = symbol "/"
 
-partsP = partP `sepBy` newline
+partsP = B.fromList <$> partP `sepBy` newline
 partP = B.fromList <$> integer `sepBy` slash
 
 successfulParse :: Text -> Parts
 successfulParse input = 
         case parse partsP "input" input of
-                Left  _error -> B.empty -- TIO.putStr $ T.pack $ parseErrorPretty err
-                Right partsList -> B.fromList partsList
\ No newline at end of file
+                Left  _error -> B.empty
+                Right partsList -> partsList
\ No newline at end of file