From 1362ef699897009fbcfce9ce43a606c18224fdfd Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Wed, 20 Dec 2017 21:54:00 +0000
Subject: [PATCH] Simplified the parser
---
src/advent20/advent20.hs | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/src/advent20/advent20.hs b/src/advent20/advent20.hs
index 4d852a6..4822db9 100644
--- a/src/advent20/advent20.hs
+++ b/src/advent20/advent20.hs
@@ -109,12 +109,11 @@ integer = lexeme L.integer
signedInteger = L.signed sc integer
symbol = L.symbol sc
-separator = symbol ", "
comma = symbol ","
particlesP = particleP `sepBy` space
-particleP = particlify <$> (symbol "p=" *> vecP <* separator)
- <*> (symbol "v=" *> vecP <* separator)
+particleP = particlify <$> (symbol "p=" *> vecP <* comma)
+ <*> (symbol "v=" *> vecP <* comma)
<*> (symbol "a=" *> vecP)
where particlify p v a = Particle { position = p
, velocity = v
--
2.43.0