[elm] rename some variables for better readability
This commit is contained in:
parent
80e2eef226
commit
8391b62486
1 changed files with 7 additions and 7 deletions
|
@ -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 ->
|
||||||
([], [])
|
([], [])
|
||||||
|
|
Loading…
Add table
Reference in a new issue