git.iko.soy/jibb
on c4e28d2 help sign in
jibb/tests/type-program-main/initializer.txt
12 lines 349 B history raw
1+$ model [xs=(list @t) draft=@t error=(unit @t)]
2+$ message
3 %start
4 %stop
5++ main (program init update view subs)
6++ init |= ts=(list @t) [ts "" ~]
7++ update |= [msg=message state=model]
8 ^- [model (list (cmd message))] [state ~]
9++ view |= state=model ^- (element message) (text "view")
10++ subs |= state=model
11 ^- (list (sub message))
12 (~)