diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-12-18 10:56:31 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-12-18 10:56:31 -0500 |
| commit | c71de1db0cf31466bfc5fe7e96021e5d3cba6979 (patch) | |
| tree | 294baafc0fd3480fdce266c71f27090164d2114c /src/marshalcheck.sml | |
| parent | f08b20b1ecc66389fc6a829cf3819b3b38b07c48 (diff) | |
postBody type
Diffstat (limited to 'src/marshalcheck.sml')
| -rw-r--r-- | src/marshalcheck.sml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/marshalcheck.sml b/src/marshalcheck.sml index de6879ae..c7a274de 100644 --- a/src/marshalcheck.sml +++ b/src/marshalcheck.sml @@ -1,4 +1,4 @@ -(* Copyright (c) 2009, Adam Chlipala +(* Copyright (c) 2009-2010, Adam Chlipala * All rights reserved. * * Redistribution and use in source and binary forms, with or without @@ -96,7 +96,10 @@ fun check file = let fun makeS (t, _) = case t of - TFun (dom, ran) => PS.union (sins cmap dom, makeS ran) + TFun (dom, ran) => + (case #1 dom of + CFfi ("Basis", "postBody") => makeS ran + | _ => PS.union (sins cmap dom, makeS ran)) | _ => PS.empty val s = makeS t in |