Updated version from Dave.

diff --git a/wrappers/pl_Template.ml b/wrappers/pl_Template.ml
index 1c830dd..040bab2 100644 (file)
--- a/wrappers/pl_Template.ml
+++ b/wrappers/pl_Template.ml
@@ -14,14 +14,14 @@ module Variant =
 
 struct
 
-  type variant =
+  type t =
     | Null
     | String of string
     | Int of int
     | Float of float
     | Bool of bool
-    | Array of variant list
-    | Hash of (string * variant) list;;
+    | Array of t list
+    | Hash of (string * t) list;;
 
 end
 
@@ -78,7 +78,7 @@ let new_ ?start_tag ?end_tag ?tag_style ?pre_chomp ?post_chomp ?trim
     may (fun v ->
            args := sv_of_string "END_TAG" :: sv_of_string v :: !args) end_tag;
     may (fun v ->
-           args := sv_of_string "TAG_STYLE" :: sv_of_string v :: !args) end_tag;
+           args := sv_of_string "TAG_STYLE" :: sv_of_string v :: !args) tag_style;
     may (fun v ->
            args := sv_of_string "PRE_CHOMP" :: sv_of_bool v :: !args) pre_chomp;
     may (fun v ->