lean4-htt/src/Lean/Linter/Basic.lean
2024-02-18 14:55:17 -08:00

13 lines
379 B
Text

prelude
import Lean.Data.Options
namespace Lean.Linter
register_builtin_option linter.all : Bool := {
defValue := false
descr := "enable all linters"
}
def getLinterAll (o : Options) (defValue := linter.all.defValue) : Bool := o.get linter.all.name defValue
def getLinterValue (opt : Lean.Option Bool) (o : Options) : Bool := o.get opt.name (getLinterAll o opt.defValue)