From: rich <rich>
Date: Sun, 15 Feb 2004 11:34:23 +0000 (+0000)
Subject: Updated version from Dave.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=e9cc6835fd3d69f062f6e5f5e389e63cbc43477b;p=perl4caml.git

Updated version from Dave.
---

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 ->