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

feat: add IO.eprint(ln) for printing to stderr

Browse source 
Most useful when stdout is being consumed by another program
This commit is contained in:
Sebastian Ullrich 2020-07-04 19:15:26 +02:00 • committed by Leonardo de Moura
parent 0f6b9f5c94
commit b40ef65b39
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/Init/System/IO.lean
View file

@ -232,12 +232,18 @@ Prim.liftIO Prim.stdout
def stderr : m FS.Handle :=
Prim.liftIO Prim.stderr
private def putStr (s : String) : m Unit := do
def print {α} [HasToString α] (s : α) : m Unit := do
out ← stdout;
out.putStr s
out.putStr $ toString s
def println {α} [HasToString α] (s : α) : m Unit := print s *> print "\n"
def eprint {α} [HasToString α] (s : α) : m Unit := do
out ← stderr;
out.putStr $ toString s
def eprintln {α} [HasToString α] (s : α) : m Unit := eprint s *> eprint "\n"
def print {α} [HasToString α] (s : α) : m Unit := putStr ∘ toString $ s
def println {α} [HasToString α] (s : α) : m Unit := print s *> putStr "\n"
def getEnv : String → m (Option String) := Prim.liftIO ∘ Prim.getEnv
def realPath : String → m String := Prim.liftIO ∘ Prim.realPath
def isDir : String → m Bool := Prim.liftIO ∘ Prim.isDir