annotate forms.ur @ 33:2e7f8f7d71d4

Update for Ur/Web's new tag name resolution
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Nov 2013 16:12:17 -0500
parents 5905b56e0cd9
children
rev   line source
adam@1 1 datatype readiness a = Ready of a | Waiting | Invalid of string
adam@1 2 datatype rpcResult a = Success of a | Failure of string
adam@1 3
adam@1 4 fun warning [a] (s : signal (readiness a)) =
adam@1 5 <xml><dyn signal={v <- s;
adam@1 6 return (case v of
adam@1 7 Invalid s => <xml><b>{[s]}</b></xml>
adam@1 8 | _ => <xml/>)}/></xml>
kkallio@9 9
adam@27 10 fun warningFmt [a ::: Type] [ctx ::: {Unit}] [ctx ~ [Dyn]]
adam@27 11 (wrap : string -> xml ([Dyn] ++ ctx) [] [])
kkallio@9 12 (s : signal (readiness a)) =
kkallio@9 13 <xml><dyn signal={v <- s;
kkallio@9 14 return (case v of
kkallio@9 15 Invalid s => wrap s
kkallio@9 16 | _ => <xml/>)}/></xml>