Mercurial > urweb

diff src/jscomp.sml @ 2251:25874084bf1f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Make Mono.file a record for readability upon extension.
author Ziv Scully <ziv@mit.edu>
date Sun, 13 Sep 2015 17:02:17 -0400
parents e10881cd92da
children e843a04499d4
line wrap: on
line diff
--- a/src/jscomp.sml	Sun Sep 13 16:02:45 2015 -0400
+++ b/src/jscomp.sml	Sun Sep 13 17:02:17 2015 -0400
@@ -79,7 +79,7 @@
                                      someTs) someTs dts,
                        nameds)
                     | (_, state) => state)
-                  (IM.empty, IM.empty) (#1 file)
+                  (IM.empty, IM.empty) (#decls file)
 
         fun str loc s = (EPrim (Prim.String (Prim.Normal, s)), loc)
 
@@ -1335,7 +1335,7 @@
                         listInjectors = TM.empty,
                         decoders = IM.empty,
                         maxName = U.File.maxName file + 1}
-                       (#1 file)
+                       (#decls file)
 
         val inf = TextIO.openIn (OS.Path.joinDirFile {dir = Settings.libJs (), file = "urweb.js"})
         fun lines acc =
@@ -1365,7 +1365,7 @@
                 ""
     in
         TextIO.closeIn inf;
-        ((DJavaScript script, ErrorMsg.dummySpan) :: ds, #2 file)
+        {decls = (DJavaScript script, ErrorMsg.dummySpan) :: ds, sideInfo = #sideInfo file}
     end
 
 end