def
Lake.mkParserErrorMessage
(ictx : Lean.Parser.InputContext)
(s : Lean.Parser.ParserState)
(e : Lean.Parser.Error)
:
Equations
- Lake.mkParserErrorMessage ictx s e = { fileName := ictx.fileName, pos := ictx.fileMap.toPosition s.pos, keepFullRange := true, data := (Lean.MessageData.ofFormat ∘ Std.format) (toString e) }
Equations
- One or more equations did not get rendered due to their size.
def
Lake.mkMessageNoPos
(ictx : Lean.Parser.InputContext)
(data : Lean.MessageData)
(severity : Lean.MessageSeverity := Lean.MessageSeverity.error)
:
Equations
- Lake.mkMessageNoPos ictx data severity = { fileName := ictx.fileName, pos := ictx.fileMap.toPosition 0, severity := severity, data := data }
def
Lake.mkMessageStringCore
(severity : Lean.MessageSeverity)
(fileName caption body : String)
(pos : Lean.Position)
(endPos? : Option Lean.Position := none)
(infoWithPos : Bool := false)
:
Equations
- One or more equations did not get rendered due to their size.
Equations
- One or more equations did not get rendered due to their size.
Equations
- Lake.mkMessageLogString log = List.foldlM (fun (s : String) (m : Lean.Message) => do let __do_lift ← Lake.mkMessageString m false true pure (s ++ __do_lift)) "" log.toList