15 lines
329 B
Text
15 lines
329 B
Text
import Lean
|
|
|
|
open Lean
|
|
|
|
def oh_no : Nat := 0
|
|
|
|
def snakeLinter : Linter :=
|
|
fun env n stx =>
|
|
-- TODO(Sebastian): return actual message with position from syntax tree
|
|
if n.toString.contains '_' then throw $ IO.userError "SNAKES!!"
|
|
else pure MessageLog.empty
|
|
|
|
@[init]
|
|
def registerSnakeLinter : IO Unit :=
|
|
addLinter snakeLinter
|