diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/settings.sml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/settings.sml b/src/settings.sml index f6d653f1..e37d81f1 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -16,7 +16,7 @@ * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE - * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN @@ -52,7 +52,7 @@ fun setUrlPrefix p = ("", prefix) else (String.substring (prefix, 0, n) ^ Substring.string befor, Substring.string after) - end + end val (prepre, prefix) = if String.isPrefix "http://" prefix then @@ -204,6 +204,7 @@ fun isServerOnly x = S.member (!server, x) val basisM = foldl (fn ((k, v : string), m) => M.insert (m, ("Basis", k), v)) M.empty val jsFuncsBase = basisM [("alert", "alert"), + ("stringToTime","stringToTime"), ("confirm", "confrm"), ("get_client_source", "sg"), ("current", "scur"), |