a2abbdbf9a
This is just a draft. ``` for f in `find . -name '*.lean'`; do echo $f; gsed "/^import/s/\b\(.\)/\u\1/g" $f > tmp; gsed "/^Import/s/Import/import/g" tmp > $f; done ```
18 lines
603 B
Text
18 lines
603 B
Text
/-
|
||
Copyright (c) 2019 Sebastian Ullrich. All rights reserved.
|
||
Released under Apache 2.0 license as described in the file LICENSE.
|
||
Author: Sebastian Ullrich
|
||
-/
|
||
prelude
|
||
import Init.System.Io
|
||
import Init.Lean.Position
|
||
|
||
namespace Lean
|
||
|
||
/-- Print and accumulate run time of `act` when Option `profiler` is set to `true`. -/
|
||
@[extern 5 "lean_lean_profileit"]
|
||
constant profileit {α : Type} (category : @& String) (pos : @& Position) (act : IO α) : IO α := act
|
||
def profileitPure {α : Type} (category : String) (pos : Position) (fn : Unit → α) : IO α :=
|
||
profileit category pos $ IO.lazyPure fn
|
||
|
||
end Lean
|