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.34.1