From cbec909888bdb0837ade29efb199015226f0fcd3 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 25 Aug 2009 15:19:00 -0400
Subject: Fix inconsistency in bool URLification between C and JavaScript

---
 src/jscomp.sml   | 2 +-
 src/settings.sml | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/jscomp.sml b/src/jscomp.sml
index 0ebdc94a..71046014 100644
--- a/src/jscomp.sml
+++ b/src/jscomp.sml
@@ -428,7 +428,7 @@ fun process file =
               | TFfi ("Basis", "float") => ("parseFloat(t[i++])", st)
               | TFfi ("Basis", "channel") => ("(t[i++].length > 0 ? parseInt(t[i]) : null)", st)
 
-              | TFfi ("Basis", "bool") => ("t[i++] == \"True\"", st)
+              | TFfi ("Basis", "bool") => ("t[i++] == \"1\"", st)
 
               | TOption t =>
                 let
diff --git a/src/settings.sml b/src/settings.sml
index bb45cf9c..bed027a3 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -143,7 +143,7 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("urlifyInt", "ts"),
                           ("urlifyFloat", "ts"),
                           ("urlifyString", "uf"),
-                          ("urlifyBool", "bs"),
+                          ("urlifyBool", "ub"),
                           ("recv", "rv"),
                           ("strcat", "cat"),
                           ("intToString", "ts"),
-- 
cgit v1.2.3