Mercurial > urweb
changeset 1258:78b36c50daf9
Fix width/height CSS choices for table rows/columns; stop warning about inability to embed type in JavaScript
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 16 May 2010 18:25:00 -0400 (2010-05-16) |
parents | fd1a49b51db5 |
children | 83b1853d1e58 |
files | src/css.sml src/jscomp.sml |
diffstat | 2 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/css.sml Sun May 16 15:34:24 2010 -0400 +++ b/src/css.sml Sun May 16 18:25:00 2010 -0400 @@ -66,10 +66,10 @@ val block = ([Block], [OBlock, Width, Height]) val inline = ([], [NonReplacedInline]) val list = ([Block, List], [OBlock, Width, Height]) -val replaced = ([], [ ReplacedInline, Width, Height]) +val replaced = ([], [ReplacedInline, Width, Height]) val table = ([Block, Table], [OBlock, OTable, Width, Height]) -val tr = ([Block], [OBlock, Tr, Width]) -val td = ([Block, Td], [OBlock, OTd, Height]) +val tr = ([Block], [OBlock, Tr, Height]) +val td = ([Block, Td], [OBlock, OTd, Width]) val tags = [("span", inline), ("div", block),
--- a/src/jscomp.sml Sun May 16 15:34:24 2010 -0400 +++ b/src/jscomp.sml Sun May 16 18:25:00 2010 -0400 @@ -1173,9 +1173,9 @@ | EJavaScript (m, e') => (foundJavaScript := true; jsExp m outer (e', st) - handle CantEmbed t => ((*ErrorMsg.errorAt loc "Unable to embed type in JavaScript";*) - Print.preface ("Can't embed type in JavaScript", - MonoPrint.p_typ MonoEnv.empty t); + handle CantEmbed t => ((*ErrorMsg.errorAt loc "Unable to embed type in JavaScript"; + Print.preface ("Type", + MonoPrint.p_typ MonoEnv.empty t);*) (e, st))) | ESignalReturn e =>