[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
|
||||
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 ->
|
||||
([], [])
|
||||
|
|
Loading…
Add table
Reference in a new issue