Commit 16de6b6a authored by Bogdan Popa's avatar Bogdan Popa

allow underscores in import pattern names

parent 91a40a2c
......@@ -448,8 +448,8 @@ Runs `elm-reactor' first."
(let* ((spaces "[[:space:]\n]")
(ws (concat spaces "*"))
(ws+ (concat spaces "+"))
(upcase "[A-Z][A-Za-z0-9]*")
(lowcase "[a-z][A-Za-z0-9]*")
(upcase "[A-Z][A-Za-z0-9_]*")
(lowcase "[a-z][A-Za-z0-9_]*")
(as-form (concat ws+ "as" ws+ upcase))
(exposing-union-type
(concat upcase
......
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