Commit f2e017a8 authored by John van Groningen's avatar John van Groningen
Browse files

fix parsing of tail strict from-to list expressions, e.g. [0..9!]

parent de27c3c0
...@@ -4519,10 +4519,9 @@ where ...@@ -4519,10 +4519,9 @@ where
-> case acc of -> case acc of
[e] [e]
# pd_from_to_index = # pd_from_to_index =
if (head_strictness==HeadStrict) PD_FromToS if (head_strictness==HeadStrict) PD_FromToSTS
(if (head_strictness==HeadUnboxed) PD_FromToU (if (head_strictness==HeadUnboxed) PD_FromToUTS
(if (head_strictness==HeadOverloaded) PD_FromToO PD_FromToTS)
PD_FromTo))
-> (PE_Sequ (SQ_FromTo pd_from_to_index e exp), pState) -> (PE_Sequ (SQ_FromTo pd_from_to_index e exp), pState)
[e2,e1] [e2,e1]
# pd_from_then_to_index = # pd_from_then_to_index =
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment