diff options
Diffstat (limited to 'src/especialize.sml')
-rw-r--r-- | src/especialize.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/especialize.sml b/src/especialize.sml index d1d018ee..03be01b1 100644 --- a/src/especialize.sml +++ b/src/especialize.sml @@ -148,6 +148,13 @@ fun specialize' file = val functionInside = U.Con.exists {kind = fn _ => false, con = fn TFun _ => true | CFfi ("Basis", "transaction") => true + | CFfi ("Basis", "eq") => true + | CFfi ("Basis", "num") => true + | CFfi ("Basis", "ord") => true + | CFfi ("Basis", "show") => true + | CFfi ("Basis", "read") => true + | CFfi ("Basis", "sql_injectable_prim") => true + | CFfi ("Basis", "sql_injectable") => true | _ => false} val loc = ErrorMsg.dummySpan |