Provide a renderer type

VictorNicollet · Sep 6, 2012 · 2f313d9 · 2f313d9
1 parent 7739f62
commit 2f313d9
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/src/html.ml b/src/html.ml
@@ -82,6 +82,18 @@ module Convenience = struct
 
 end
 
+type renderer = 
+     ?css:string list
+  -> ?js:string list
+  -> ?head:string
+  -> ?favicon:string
+  -> ?body_classes:string list
+  -> title:string
+  -> writer
+  -> JsCode.t 
+  -> string
+
+
 let print_page ?(css=[]) ?(js=[]) ?(head="") ?favicon ?(body_classes=[]) ~title writer more_js = 
 
   let html   = create () in

diff --git a/src/html.mli b/src/html.mli
@@ -27,7 +27,7 @@ module Convenience : sig
 
 end
 
-val print_page : 
+type renderer = 
      ?css:string list
   -> ?js:string list
   -> ?head:string
@@ -37,3 +37,5 @@ val print_page :
   -> writer
   -> JsCode.t 
   -> string
+
+val print_page : renderer