view gui.ur @ 15:8300d5f0dc19

Replace ChangePoller with SourceL, plus some other rearrangements
author Adam Chlipala <adam@chlipala.net>
date Sun, 07 Aug 2011 14:38:52 -0400
parents 90be8b8917d5
children 16447dc6a68c
line wrap: on
line source
class gui t = t -> xbody

fun toXml [t ::: Type] (xmlize : gui t) = xmlize

fun gui_xbody x = x

fun mkGui [t ::: Type] (toXml : t -> xbody) = toXml