GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

allow metavariables with indices i.e. ?0, ?1, etc in the abstract syntax parser in PGF

Browse Source
This commit is contained in:
krasimir
2010-01-15 21:23:37 +00:00
parent a04cbcfb63
commit e0dda5b65a
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/runtime/haskell/PGF/Expr.hs
View File

@@ -191,7 +191,8 @@ pTyped = do RP.skipSpaces
return (ETyped e ty) return (ETyped e ty)
pMeta = do RP.char '?' pMeta = do RP.char '?'
return 0 ds <- RP.munch isDigit
return (read ('0':ds))
pLit :: RP.ReadP Literal pLit :: RP.ReadP Literal
pLit = liftM LStr (RP.readS_to_P reads) pLit = liftM LStr (RP.readS_to_P reads)