recognise names starting with _

This commit is contained in:
Rhiannon Morris 2020-07-19 17:32:56 +02:00
parent cbff8f1a53
commit cacce9d29b

View file

@ -106,7 +106,7 @@ chunks = reverse . go "" [] . trimEnd where
splitVar s
| (var@(v :. _), s') <- Text.span isIdChar s,
isLower v
isLower v || v == '_'
= (var, s')
splitVar _ = error "invalid variable name"