Mercurial > urweb
comparison src/jscomp.sml @ 912:771449d8b411
Fix inconsistency in bool URLification between C and JavaScript
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 25 Aug 2009 15:19:00 -0400 |
parents | 12c77dc567a2 |
children | 36f787c02287 |
comparison
equal
deleted
inserted
replaced
911:12c77dc567a2 | 912:771449d8b411 |
---|---|
426 | TFfi ("Basis", "string") => ("uu(t[i++])", st) | 426 | TFfi ("Basis", "string") => ("uu(t[i++])", st) |
427 | TFfi ("Basis", "int") => ("parseInt(t[i++])", st) | 427 | TFfi ("Basis", "int") => ("parseInt(t[i++])", st) |
428 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st) | 428 | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st) |
429 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st) | 429 | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st) |
430 | 430 |
431 | TFfi ("Basis", "bool") => ("t[i++] == \"True\"", st) | 431 | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st) |
432 | 432 |
433 | TOption t => | 433 | TOption t => |
434 let | 434 let |
435 val (e, st) = unurlifyExp loc (t, st) | 435 val (e, st) = unurlifyExp loc (t, st) |
436 val e = if isNullable t then | 436 val e = if isNullable t then |