Mercurial > gui
diff gui.ur @ 32:d32fb0f7b137
Update for Ur/Web's new type class handling
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 29 Jul 2012 12:28:46 -0400 |
parents | 5905b56e0cd9 |
children |
line wrap: on
line diff
--- a/gui.ur Sat Jul 21 10:15:14 2012 -0400 +++ b/gui.ur Sun Jul 29 12:28:46 2012 -0400 @@ -1,4 +1,4 @@ -class gui = fn (t :: Type) (ctx :: {Unit}) => [[Dyn] ~ ctx] => t -> xml ([Dyn] ++ ctx) [] [] +con gui (t :: Type) (ctx :: {Unit}) = [[Dyn] ~ ctx] => t -> xml ([Dyn] ++ ctx) [] [] fun gui_xbody [[Dyn] ~ _] x = x fun gui_xtable [[Dyn] ~ _] x = x