--- a/src/compiler.sig	Thu Apr 30 16:25:27 2009 -0400
+++ b/src/compiler.sig	Thu Apr 30 17:15:14 2009 -0400
@@ -37,11 +37,14 @@
          sql : string option,
          debug : bool,
          profile : bool,
-         timeout : int
+         timeout : int,
+         ffi : string list,
+         link : string list,
+         headers : string list
     }
     val compile : string -> unit
     val compileC : {cname : string, oname : string, ename : string, libs : string,
-                    profile : bool, debug : bool} -> unit
+                    profile : bool, debug : bool, link : string list} -> unit
 
     type ('src, 'dst) phase
     type ('src, 'dst) transform