12 lines
201 B
Text
12 lines
201 B
Text
open Lean
|
|
|
|
def f : Name → Name
|
|
| n@(`foo.bla) => n
|
|
| _ => Name.anonymous
|
|
|
|
def tst : IO Unit := do
|
|
when (hash `foo.bla != hash (f `foo.bla)) $
|
|
throw $ IO.userError "bug";
|
|
IO.println "ok"
|
|
|
|
#eval tst
|