Mercurial > urweb

diff src/cjrize.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 278e10629ba1
children e843a04499d4
line wrap: on
line diff
--- a/src/cjrize.sml	Sun Sep 13 16:02:45 2015 -0400
+++ b/src/cjrize.sml	Sun Sep 13 17:02:17 2015 -0400
@@ -701,7 +701,7 @@
       | L.DPolicy _ => (NONE, NONE, sm)
       | L.DOnError n => (SOME (L'.DOnError n, loc), NONE, sm)
 
-fun cjrize (ds, sideInfo) =
+fun cjrize {decls = ds, sideInfo} =
     let
         val (dsF, ds, ps, sm) = foldl (fn (d, (dsF, ds, ps, sm)) =>
                                           let