mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 18:21:47 +03:00
14 lines
229 B
Idris
14 lines
229 B
Idris
|
import Language.Reflection
|
||
|
|
|
||
|
|
%language ElabReflection
|
||
|
|
|
||
|
|
mkDecls : TTImp -> Elab ()
|
||
|
|
mkDecls v
|
||
|
|
= declare `[ mkMult : Int -> Int
|
||
|
|
mkMult x = x * ~(v) ]
|
||
|
|
|
||
|
|
%runElab mkDecls `(94)
|
||
|
|
|
||
|
|
bad : a
|
||
|
|
bad = %runElab mkDecls `(94)
|