Garmelon/mima-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow '_' in label and meta names

Browse source
This commit is contained in:
Joscha 2020-04-04 13:40:40 +00:00
parent c8b53d1a1f
commit 86dd243c11
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Mima/Asm/Phase1.hs
View file

@ -213,7 +213,7 @@ withSpan f = do
name :: Parser (Name Span)
name = fmap (uncurry Name) $ withSpan $ do
firstChar <- satisfy isLower <?> "lowercase character"
otherChars <- takeWhileP (Just "alphanumeric character") isAlphaNum
otherChars <- takeWhileP (Just "alphanumeric character or '_'") (\c -> isAlphaNum c || c == '_')
pure $ T.pack [firstChar] <> otherChars
number :: (Num a) => Parser a