rhi/gallery
1
0
Fork 0
Code Issues 5 Pull requests 1 Releases Wiki Activity

make identifier parsing a little more faithful

Browse source
This commit is contained in:
Rhiannon Morris 2020-07-15 11:33:12 +02:00
parent acc476d8a3
commit cf999d19b6
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
make-pages/BuildVar.hs
View file

@ -98,11 +98,13 @@ chunks = reverse . go "" [] . trimEnd where
go acc cs (c :. rest) = go (acc <> singleton c) cs rest go acc cs (c :. rest) = go (acc <> singleton c) cs rest
splitVar s splitVar s
| (var, s') <- Text.span isAlphaNum s, | (var, s') <- Text.span isIdChar s,
isLower (Text.head var) isLower (Text.head var)
= (var, s') = (var, s')
splitVar _ = error "invalid variable name" splitVar _ = error "invalid variable name"
isIdChar c = isAlphaNum c || c `elem` ['_', '\'']
lit s = (Lit, toStrictText s) lit s = (Lit, toStrictText s)
trimEnd = Text.dropWhileEnd isSpace trimEnd = Text.dropWhileEnd isSpace