From e9cc6835fd3d69f062f6e5f5e389e63cbc43477b Mon Sep 17 00:00:00 2001 From: rich Date: Sun, 15 Feb 2004 11:34:23 +0000 Subject: [PATCH] Updated version from Dave. --- wrappers/pl_Template.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -> -- 1.8.3.1