28 lines
644 B
Agda
28 lines
644 B
Agda
module Auto
|
|
|
|
ptype String
|
|
ptype Int
|
|
|
|
pfunc i2s : Int -> String := "(i) => ''+i"
|
|
pfunc _++_ : String -> String -> String := "(a,b) => a + b"
|
|
|
|
infixl 4 _++_
|
|
|
|
-- We need sugar and marking as class/instance on all of this
|
|
|
|
data Show : U -> U where
|
|
MkShow : { A : U } -> ((show : A) -> String) -> Show A
|
|
|
|
-- FIXME - we'd like to inline this, so `show _ {{showInt}} a` ends up as `i2s a`
|
|
show : {A : U} {{myshow : Show A}} -> A -> String
|
|
show {_} {{MkShow foo}} a = foo a
|
|
|
|
showInt : Show Int
|
|
showInt = MkShow i2s
|
|
|
|
ptype World
|
|
pfunc log : {A : U} -> A -> World := "(_, a) => console.log(a)"
|
|
|
|
main : Int -> World
|
|
main _ = log ("answer: " ++ show 42)
|