X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=wrappers%2Fpl_Template.ml;h=040bab2d9916e84fdb53193c7d88db04660ce3a8;hb=24435c22de2cad3930563e1c7eba97c3687a34cd;hp=1c830dd5cda8c8744c5b9fbb06983a3ce621ade2;hpb=efab5abed48d08e735c652c8454d14393c006c0e;p=perl4caml.git

diff --git a/wrappers/pl_Template.ml b/wrappers/pl_Template.ml
index 1c830dd..040bab2 100644
--- 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 ->