Parsing tweaks.

diff --git a/advent03/src/advent03.hs b/advent03/src/advent03.hs
index a863ffef9ca2a09ac081a321c6bbc8f1f2c539a1..c022a1bb98c5dc6fae2ea663ff64c8f70f57a406 100644 (file)
--- a/advent03/src/advent03.hs
+++ b/advent03/src/advent03.hs
@@ -101,7 +101,7 @@ integer = lexeme L.decimal
 symb = L.symbol sc
 comma = symb ","
 
-wiresP = some pathP
+wiresP = many pathP
 pathP = segmentP `sepBy1` comma
 
 segmentP = segmentify <$> directionP <*> integer

diff --git a/advent03/src/advent03part1.hs b/advent03/src/advent03part1.hs
index e2beb38e974e5da7e3a7bcfdebc0bf397fb650e4..5647ce5326d4c492cfdb6db4acf7195a862307e1 100644 (file)
--- a/advent03/src/advent03part1.hs
+++ b/advent03/src/advent03part1.hs
@@ -86,7 +86,7 @@ integer = lexeme L.decimal
 symb = L.symbol sc
 comma = symb ","
 
-wiresP = some pathP
+wiresP = many pathP
 pathP = segmentP `sepBy1` comma
 
 segmentP = segmentify <$> directionP <*> integer