Fix Diag2 test (overloaded list patterns)

parent 80b55008
......@@ -208,7 +208,8 @@ var highlightRules = {
funcargs: [
[/(=:)/, ['punctuation']],
[/((?::=)?=)/, ['punctuation'], 'jump:rhs'],
[/([:\[\](),{}=]+)/, ['punctuation']],
[/(\[\|)/, ['punctuation']], /* overloaded list */
[/([:\[\](),{}=])/, ['punctuation']],
[/(\|})/, ['punctuation']],
[/(\|)/, ['punctuation'], 'jump:guard'],
[/(#)/, ['punctuation']],
......
......@@ -43,14 +43,21 @@ funcname diag2_
whitespace
punctuation [|]
whitespace
funcname funcname-onlyused ys
punctuation = [|]
argument ys
whitespace
punctuation =
whitespace
punctuation [|]
whitespace \n
funcname diag2_
whitespace
argument xs
whitespace
punctuation [|] = [|]
punctuation [|]
whitespace
punctuation =
whitespace
punctuation [|]
whitespace \n
funcname diag2_
whitespace
......@@ -218,64 +225,76 @@ whitespace \n\n
funcname takexnext
whitespace
punctuation [|
funcname funcname-onlyused x
argument x
punctuation :
funcname funcname-onlyused xs
argument xs
punctuation ]
whitespace
funcname funcname-onlyused accu
punctuation = (
argument accu
whitespace
punctuation =
whitespace
punctuation (
literal literal-bool True
punctuation ,
funcname funcname-onlyused xs
argumentinrhs xs
punctuation ,[|
funcname funcname-onlyused x
argumentinrhs x
punctuation :
funcname funcname-onlyused accu
argumentinrhs accu
punctuation ])
whitespace \n
funcname takexnext
whitespace
punctuation [|]
whitespace
funcname funcname-onlyused accu
punctuation = (
argument accu
whitespace
punctuation =
whitespace
punctuation (
literal literal-bool False
punctuation ,[|],
funcname funcname-onlyused accu
argumentinrhs accu
punctuation )
whitespace \n\n
funcname takeynext
whitespace
punctuation [|
funcname funcname-onlyused y
argument y
punctuation :
funcname funcname-onlyused ys
argument ys
punctuation ]
whitespace
funcname funcname-onlyused accu
punctuation = (
argument accu
whitespace
punctuation =
whitespace
punctuation (
literal literal-bool True
punctuation ,
funcname funcname-onlyused ys
argumentinrhs ys
punctuation ,
funcname funcname-onlyused accu
argumentinrhs accu
whitespace
punctuation ++|
whitespace
punctuation [|
funcname funcname-onlyused y
argumentinrhs y
punctuation ])
whitespace \n
funcname takeynext
whitespace
punctuation [|]
whitespace
funcname funcname-onlyused accu
punctuation = (
argument accu
whitespace
punctuation =
whitespace
punctuation (
literal literal-bool False
punctuation ,[|],
funcname funcname-onlyused accu
argumentinrhs accu
punctuation )
whitespace \n\n
funcname shift
......@@ -283,23 +302,31 @@ whitespace
argument xout
whitespace
punctuation [|
argument argument-wildcard _
argument _
punctuation :
funcname funcname-onlyused ys
punctuation ] = [|(
argument ys
punctuation ]
whitespace
punctuation =
whitespace
punctuation [|(
argumentinrhs xout
punctuation ,
funcname funcname-onlyused ys
argumentinrhs ys
punctuation ):
funcname funcname-onlyused shift
whitespace
argumentinrhs xout
whitespace
funcname funcname-onlyused ys
argumentinrhs ys
punctuation ]
whitespace \n
funcname shift
whitespace
argument _
whitespace
punctuation [|] = [|]
punctuation [|]
whitespace
punctuation =
whitespace
punctuation [|]
Markdown is supported
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