diff options
Diffstat (limited to 'src/marshalcheck.sml')
| -rw-r--r-- | src/marshalcheck.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/marshalcheck.sml b/src/marshalcheck.sml index c7a274de..eadbfa49 100644 --- a/src/marshalcheck.sml +++ b/src/marshalcheck.sml @@ -99,6 +99,7 @@ fun check file = TFun (dom, ran) => (case #1 dom of CFfi ("Basis", "postBody") => makeS ran + | CApp ((CFfi ("Basis", "option"), _), (CFfi ("Basis", "queryString"), _)) => makeS ran | _ => PS.union (sins cmap dom, makeS ran)) | _ => PS.empty val s = makeS t |