diff options
-rw-r--r-- | lib/js/urweb.js | 4 | ||||
-rw-r--r-- | src/settings.sml | 1 |
2 files changed, 5 insertions, 0 deletions
diff --git a/lib/js/urweb.js b/lib/js/urweb.js index 9834fde6..6343543e 100644 --- a/lib/js/urweb.js +++ b/lib/js/urweb.js @@ -113,6 +113,10 @@ function toSeconds(tm) { return Math.round(tm / 1000000); } +function addSeconds(tm, n) { + return tm + n * 1000000; +} + // Error handling diff --git a/src/settings.sml b/src/settings.sml index c9030eac..7b19b1b1 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -254,6 +254,7 @@ val jsFuncsBase = basisM [("alert", "alert"), ("timeToString", "showTime"), ("htmlifyTime", "showTime"), ("toSeconds", "toSeconds"), + ("addSeconds", "addSeconds"), ("diffInSeconds", "diffInSeconds")] val jsFuncs = ref jsFuncsBase fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls |