1
1
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-18 10:21:39 +03:00

Fix record dot syntax parser.

This commit is contained in:
Matus Tejiscak 2020-04-17 00:35:39 +02:00
parent ca1ef8a882
commit 4b986e8b61

View File

@ -314,7 +314,7 @@ mutual
simpleExpr fname indents =
do
start <- location
recFields <- many recField
recFields <- some recField
end <- location
pure $ PRecordProjection (MkFC fname start end) recFields
<|> do
@ -322,7 +322,7 @@ mutual
root <- simplerExpr fname indents
recFields <- many recField
end <- location
case recFields of
pure $ case recFields of
[] => root
fs => PRecordFieldAccess (MkFC fname start end) root recFields