18 lines
403 B
Agda
18 lines
403 B
Agda
module JSLib
|
|
|
|
|
|
|
|
|
|
infixl 4 _+_
|
|
infixl 5 _*_
|
|
|
|
pfunc _+_ : Int -> Int -> Int := `(x,y) => x + y`
|
|
pfunc _*_ : Int -> Int -> Int := `(x,y) => x * y`
|
|
|
|
ptype JVoid
|
|
|
|
-- REVIEW - maybe we only have body, use names from the pi-type and generate
|
|
-- the arrow (or inline?) ourselves
|
|
pfunc log : String -> JVoid := `x => console.log(x)`
|
|
pfunc debug : {a : U} -> String -> a -> JVoid := `(_,x,a) => console.log(x,a)`
|