Mercurial > urweb

view tests/crypt.ur @ 1588:65d6488c82d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix confusing error message when record unification fails because enclosed types are incompatible
author Adam Chlipala <adam@chlipala.net>
date Sat, 05 Nov 2011 09:56:52 -0400
parents a5bfed32d4f7
children
line wrap: on
line source
fun cryptIt r = return <xml><body>
  {[crypt r.Pass "AB"]}
</body></xml>

fun main () = return <xml><body>
  <form><textbox{#Pass}/> <submit action={cryptIt}/></form>
</body></xml>