From d742cc9d886da7e68b420ba48e3cba8b678aa991 Mon Sep 17 00:00:00 2001
From: Danila Fedorin <danila.fedorin@gmail.com>
Date: Sun, 3 Feb 2019 22:36:06 -0800
Subject: [PATCH] Fix parsing

---
 index.html   | 7 +++----
 src/Main.elm | 9 ++++++++-
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/index.html b/index.html
index dbf6964..1c2e798 100644
--- a/index.html
+++ b/index.html
@@ -9,18 +9,17 @@
         <div id="elm-container">
         </div>
         <script>
-            var program = `
-move(0, 0);
+            var program = `move(0, 0);
 define line(x1, y1, x2, y2) {
     pen up;
     move(x1, y1);
     pen down;
     move(x2, y2);
-};
+}
 define nix(x, y, width, height) {
     call line (x, y, x + width, y + height);
     call line (x + width, y, x, y + height);
-};
+}
 call nix(0, 0, 20, 20);
 `
             var container = document.getElementById("elm-container");
diff --git a/src/Main.elm b/src/Main.elm
index f1d45df..a1b724f 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -90,7 +90,7 @@ parseExpr = oneOf [ lazy (\_ -> backtrackable parseSum), parseTerm ]
 parseProg : Parser LogoProg
 parseProg = sequence
     { start = ""
-    , separator = ";"
+    , separator = ""
     , end = ""
     , spaces = spaces
     , item = lazy (\_ -> parseCmd)
@@ -135,6 +135,8 @@ parseCall = succeed Call
         , item = parseExpr
         , trailing = Forbidden
         }
+    |. spaces
+    |. symbol ";"
 
 parsePenMode : Parser LogoPenMode
 parsePenMode = oneOf
@@ -147,6 +149,8 @@ parsePen = succeed Pen
     |. keyword "pen"
     |. spaces
     |= parsePenMode
+    |. spaces
+    |. symbol ";"
 
 parseMove : Parser LogoCmd
 parseMove = succeed Move
@@ -158,7 +162,10 @@ parseMove = succeed Move
     |. symbol ","
     |. spaces
     |= parseExpr
+    |. spaces
     |. symbol ")"
+    |. spaces
+    |. symbol ";"
 
 {-
 ======= Semantics Code =======