summaryrefslogtreecommitdiff
path: root/src/settings.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2011-07-22 15:39:38 -0400
committerGravatar Adam Chlipala <adam@chlipala.net>2011-07-22 15:39:38 -0400
commitc723667d402b730edc4059cb132587977893b42a (patch)
tree6656ba1a78bd4eb71c381dc95d2e7b1a8ce6b130 /src/settings.sml
parent02d95a3ae4ed3519b082fe49616e493572e68e83 (diff)
Backpedal on tutorial-motivated urweb-mode changes; add Basis.diffInSeconds and Basis.toSeconds
Diffstat (limited to 'src/settings.sml')
-rw-r--r--src/settings.sml4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml
index 57ab956a..c9030eac 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -252,7 +252,9 @@ val jsFuncsBase = basisM [("alert", "alert"),
("now", "now"),
("timeToString", "showTime"),
- ("htmlifyTime", "showTime")]
+ ("htmlifyTime", "showTime"),
+ ("toSeconds", "toSeconds"),
+ ("diffInSeconds", "diffInSeconds")]
val jsFuncs = ref jsFuncsBase
fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
fun jsFunc x = M.find (!jsFuncs, x)