Mercurial > urweb

changeset 1611:217384f4b8ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tweak error message about Basis.get to use that name instead of internal name
author Adam Chlipala <adam@chlipala.net>
date Thu, 24 Nov 2011 11:56:05 -0500
parents 37f5a23446b2
children 7bb8c560f23d
files src/sidecheck.sml
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/sidecheck.sml	Thu Nov 24 11:41:52 2011 -0500
+++ b/src/sidecheck.sml	Thu Nov 24 11:56:05 2011 -0500
@@ -50,7 +50,16 @@
     in
         FS.app (fn k as (k1, k2) =>
                    if Settings.isClientOnly k then
-                       E.error ("Server-side code uses client-side-only identifier \"" ^ k1 ^ "." ^ k2 ^ "\"")
+                       let
+                           val k2 = case k1 of
+                                        "Basis" =>
+                                        (case k2 of
+                                             "get_client_source" => "get"
+                                           | _ => k2)
+                                      | _ => k2
+                       in
+                           E.error ("Server-side code uses client-side-only identifier \"" ^ k1 ^ "." ^ k2 ^ "\"")
+                       end
                    else
                        ()) fs;
         ds