X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent25%2FMain.hs;h=57d94f235444ec27b411efc7e89abd7ac09ea4bc;hb=ac1cb7b87194225d518bae8e5a9d9efe7d27220a;hp=0b9c02a2c1ec18716175f34b352f66975ec903b9;hpb=bc689ec22856749b96406382eac0345f2f71cb40;p=advent-of-code-23.git

diff --git a/advent25/Main.hs b/advent25/Main.hs
index 0b9c02a..57d94f2 100644
--- a/advent25/Main.hs
+++ b/advent25/Main.hs
@@ -7,8 +7,8 @@ import qualified Data.Text.IO as TIO
 import Data.Attoparsec.Text hiding (take)
 -- import Control.Applicative
 import Data.List (foldl', unfoldr, sort, delete)
-import qualified Data.Map as M
-import Data.Map ((!))
+import qualified Data.Map.Strict as M
+import Data.Map.Strict ((!))
 import qualified Data.Set as S
 import Data.Set ((\\))
 import qualified Data.Sequence as Q
@@ -93,7 +93,7 @@ nodeP :: Parser (String, [String])
 nameP :: Parser String
 
 graphP = M.fromList <$> nodeP `sepBy` endOfLine
-nodeP = (,) <$> (nameP <* ": ") <*> (nameP `sepBy` " ")
+nodeP = (,) <$> nameP <* ": " <*> nameP `sepBy` " "
 
 nameP = many1 letter