From 8391b6248694e63b1d5c5e0bb4c357e5a55141c9 Mon Sep 17 00:00:00 2001
From: Rupus Reinefjord <rupus@reinefjord.net>
Date: Sat, 1 Aug 2020 22:42:25 +0200
Subject: [PATCH] [elm] rename some variables for better readability

---
 elm/src/Main.elm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/elm/src/Main.elm b/elm/src/Main.elm
index f8bd3ea..952699a 100644
--- a/elm/src/Main.elm
+++ b/elm/src/Main.elm
@@ -158,21 +158,21 @@ parse tokens =
       case List.head tokens of
         Just (TLoopToken LoopStart) ->
           let
-            (is, ts) = parse tail
-            (iss, tss) = parse ts
-            isss = Loop is :: iss
+            (i1, t1) = parse tail
+            (i2, t2) = parse t1
+            i3 = Loop i1 :: i2
           in
-            (isss, tss)
+            (i3, t2)
 
         Just (TLoopToken LoopEnd) ->
           ([], tail)
 
         Just (TDoToken token) ->
           let
-            (is, ts) = parse tail
-            iss = Do token :: is
+            (i1, t1) = parse tail
+            i2 = Do token :: i1
           in
-            (iss, ts)
+            (i2, t1)
 
         Nothing ->
           ([], [])