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