diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2013-03-15 16:09:55 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2013-03-15 16:09:55 -0400 |
| commit | 3d21914a4b831ee9c727dd4296e56961c1e4ea89 (patch) | |
| tree | 23527da3ec268f47015698c307c3d19f5c35b594 /src/pathcheck.sml | |
| parent | 76e5e75ab203b7a8b7701b9d3e496653bd213345 (diff) | |
Make Scriptcheck catch more script/message-passing uses, and move the phase earlier in compilation
Diffstat (limited to 'src/pathcheck.sml')
| -rw-r--r-- | src/pathcheck.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pathcheck.sml b/src/pathcheck.sml index 15405db7..c1bb667b 100644 --- a/src/pathcheck.sml +++ b/src/pathcheck.sml @@ -110,6 +110,6 @@ fun checkDecl ((d, loc), (funcs, rels, cookies, styles)) = | _ => (funcs, rels, cookies, styles) end -fun check ds = ignore (foldl checkDecl (SS.empty, SS.empty, SS.empty, SS.empty) ds) +fun check (ds, _) = ignore (foldl checkDecl (SS.empty, SS.empty, SS.empty, SS.empty) ds) end |