recognise names starting with _
This commit is contained in:
parent
cbff8f1a53
commit
cacce9d29b
1 changed files with 1 additions and 1 deletions
|
@ -106,7 +106,7 @@ chunks = reverse . go "" [] . trimEnd where
|
||||||
|
|
||||||
splitVar s
|
splitVar s
|
||||||
| (var@(v :. _), s') <- Text.span isIdChar s,
|
| (var@(v :. _), s') <- Text.span isIdChar s,
|
||||||
isLower v
|
isLower v || v == '_'
|
||||||
= (var, s')
|
= (var, s')
|
||||||
splitVar _ = error "invalid variable name"
|
splitVar _ = error "invalid variable name"
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue