diff options
| author |  Ziv Scully <ziv@mit.edu> | 2015-09-13 17:02:17 -0400 |
|---|---|---|
| committer | Ziv Scully <ziv@mit.edu> | 2015-09-13 17:02:17 -0400 |
| commit | 68879bbb4bf58e4709c96ba6904071ce5d24a906 (patch) | |
| tree | 163346ebe21b265592fb687e4f55af494880e15c /src/jscomp.sml | |
| parent | 46fe4e62ddefd8f79f4a29f7a273f585436d3c85 (diff) | |
Make Mono.file a record for readability upon extension.
Diffstat (limited to 'src/jscomp.sml')
| -rw-r--r-- | src/jscomp.sml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/jscomp.sml b/src/jscomp.sml index e5f7d234..29b11820 100644 --- a/src/jscomp.sml +++ b/src/jscomp.sml @@ -79,7 +79,7 @@ fun process (file : file) = 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 @@ fun process (file : file) = 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 @@ fun process (file : file) = "" in TextIO.closeIn inf; - ((DJavaScript script, ErrorMsg.dummySpan) :: ds, #2 file) + {decls = (DJavaScript script, ErrorMsg.dummySpan) :: ds, sideInfo = #sideInfo file} end end |