Mercurial > gui

view forms.urs @ 11:ccd0a169e827

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clock corrects for skew, so that it matches server time (if an RPC round-trips fast enough)
author Adam Chlipala <adam@chlipala.net>
date Sun, 24 Jul 2011 14:51:16 -0400
parents 1e04008eaef7
children 5905b56e0cd9
line wrap: on
line source
datatype readiness a = Ready of a | Waiting | Invalid of string
datatype rpcResult a = Success of a | Failure of string

val warning : a ::: Type -> signal (readiness a) -> xbody

val warningFmt : a ::: Type -> ctx ::: {Unit} -> [ctx ~ body] 
    => (string -> xml (ctx ++ body) [] []) -> signal (readiness a) 
    -> xml (ctx ++ body) [] []
(* A version of warning that adds a chrome wrapper to the warning message. *)