Mercurial > gui

view forms.ur @ 7:48a4180171b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Shifted some more generic theme navigation code to the library. Also generalized formatting options a bit for popupNav.
author Karn Kallio <kkallio@eka>
date Fri, 06 May 2011 23:00:22 -0430
parents 4d8165e8f89a
children 1e04008eaef7
line wrap: on
line source
datatype readiness a = Ready of a | Waiting | Invalid of string
datatype rpcResult a = Success of a | Failure of string

fun warning [a] (s : signal (readiness a)) =
    <xml><dyn signal={v <- s;
                      return (case v of
                                  Invalid s => <xml><b>{[s]}</b></xml>
                                | _ => <xml/>)}/></xml>