git.annexia.org
/
perl4caml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Updated version from Dave.
[perl4caml.git]
/
wrappers
/
pl_Template.ml
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
struct
- type
varian
t =
+ type t =
| Null
| String of string
| Int of int
| Float of float
| Bool of bool
| Null
| String of string
| Int of int
| Float of float
| Bool of bool
- | Array of
varian
t list
- | Hash of (string *
varian
t) list;;
+ | Array of t list
+ | Hash of (string * t) list;;
end
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 ->
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 ->
may (fun v ->
args := sv_of_string "PRE_CHOMP" :: sv_of_bool v :: !args) pre_chomp;
may (fun v ->