max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: add doSeqIndent kind

Browse source
This commit is contained in:
Leonardo de Moura 2020-10-03 08:22:02 -07:00
parent ee830ec293
commit 4e7fd4b4bf
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Lean/Parser/Do.lean
View file

@ -21,7 +21,7 @@ namespace Term
def leftArrow : Parser := unicodeSymbol " ← " " <- "
@[builtinTermParser] def liftMethod := parser!:0 leftArrow >> termParser
def doSeqIndent := many1Indent $ doElemParser >> optional "; "
def doSeqIndent := parser! many1Indent $ doElemParser >> optional "; "
def doSeqBracketed := parser! "{" >> withoutPosition (many1 (doElemParser >> optional "; ")) >> "}"
def doSeq := doSeqBracketed <|> doSeqIndent