[elm] rename some variables for better readability

This commit is contained in:
Rupus Reinefjord 2020-08-01 22:42:25 +02:00
parent 80e2eef226
commit 8391b62486

View file

@ -158,21 +158,21 @@ parse tokens =
case List.head tokens of case List.head tokens of
Just (TLoopToken LoopStart) -> Just (TLoopToken LoopStart) ->
let let
(is, ts) = parse tail (i1, t1) = parse tail
(iss, tss) = parse ts (i2, t2) = parse t1
isss = Loop is :: iss i3 = Loop i1 :: i2
in in
(isss, tss) (i3, t2)
Just (TLoopToken LoopEnd) -> Just (TLoopToken LoopEnd) ->
([], tail) ([], tail)
Just (TDoToken token) -> Just (TDoToken token) ->
let let
(is, ts) = parse tail (i1, t1) = parse tail
iss = Do token :: is i2 = Do token :: i1
in in
(iss, ts) (i2, t1)
Nothing -> Nothing ->
([], []) ([], [])