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/cjrize.sml | |
| parent | 46fe4e62ddefd8f79f4a29f7a273f585436d3c85 (diff) | |
Make Mono.file a record for readability upon extension.
Diffstat (limited to 'src/cjrize.sml')
| -rw-r--r-- | src/cjrize.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cjrize.sml b/src/cjrize.sml index b20d6d22..870c66be 100644 --- a/src/cjrize.sml +++ b/src/cjrize.sml @@ -701,7 +701,7 @@ fun cifyDecl ((d, loc), sm) = | 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 |