Commit dc7bbe2b authored by Giuseppe Castagna's avatar Giuseppe Castagna
Browse files

Fixed bug with "FIXED" attributes

parent 2670c784
...@@ -70,7 +70,8 @@ let import_dtd ppf name src = ...@@ -70,7 +70,8 @@ let import_dtd ppf name src =
(fun a -> (fun a ->
let (at,ad) = e # attribute a in let (at,ad) = e # attribute a in
match ad with match ad with
| D_fixed _ -> () | D_fixed s ->
Format.fprintf ppf " %s=\"%s\"" a s
| _ -> | _ ->
Format.fprintf ppf " %s=%s%a" Format.fprintf ppf " %s=%s%a"
a a
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment