diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-02 11:27:26 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-02 11:27:26 -0400 |
| commit | 4b3399b59d17ed32c8c2800267b8c59fd0378f21 (patch) | |
| tree | 9918a955a048024a07e68cd466c19c0dbf56f867 /src/marshalcheck.sml | |
| parent | 2307ccdcc5eb4ddfe719ddcbea999f7705ec79c3 (diff) | |
Successfully influenced effectful-ness status of FFI func
Diffstat (limited to 'src/marshalcheck.sml')
| -rw-r--r-- | src/marshalcheck.sml | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/marshalcheck.sml b/src/marshalcheck.sml index 7dea28f3..3dbf93fc 100644 --- a/src/marshalcheck.sml +++ b/src/marshalcheck.sml @@ -53,18 +53,6 @@ end structure IM = IntBinaryMap -val clientToServer = [("Basis", "int"), - ("Basis", "float"), - ("Basis", "string"), - ("Basis", "time"), - ("Basis", "file"), - ("Basis", "unit"), - ("Basis", "option"), - ("Basis", "list"), - ("Basis", "bool")] - -val clientToServer = PS.addList (PS.empty, clientToServer) - fun check file = let fun kind (_, st) = st @@ -72,7 +60,7 @@ fun check file = fun con cmap (c, st) = case c of CFfi mx => - if PS.member (clientToServer, mx) then + if Settings.mayClientToServer mx then st else PS.add (st, mx) |