diff options
| author | Sébastien Dailly <sebastien@chimrod.com> | 2018-04-20 20:27:29 +0200 |
|---|---|---|
| committer | Sébastien Dailly <sebastien@chimrod.com> | 2018-04-20 20:27:29 +0200 |
| commit | 725a98ea6133fe7741ac1ada32d53f7978bfede0 (patch) | |
| tree | 9dcced0b39b7779ea677eef193c87e9e2dcf9899 /src/odf/odfLoader.ml | |
| parent | 83a783f652dff960a0c6e15f94f1fc496813d998 (diff) | |
Update dependencies
Diffstat (limited to 'src/odf/odfLoader.ml')
| -rwxr-xr-x | src/odf/odfLoader.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/odf/odfLoader.ml b/src/odf/odfLoader.ml index 06eba38..4abe49f 100755 --- a/src/odf/odfLoader.ml +++ b/src/odf/odfLoader.ml @@ -129,14 +129,14 @@ let load catalog source = begin let sheet = Sheet.create catalog in
let cache = Hashtbl.create 10 in
- let table = Base.String_dict.of_alist_exn [
+ let table = String_dict.of_alist_exn [
((NS.text ^ "p"), build_p);
((NS.table ^ "table-cell"), build_cell cache);
((NS.table ^ "table-row"), build_row sheet (ref 1))
] in
let el (((ns, name), attributes):Xmlm.tag) childs = begin
- match Base.String_dict.find table (ns ^ name) with
+ match String_dict.find table (ns ^ name) with
| Some f -> f attributes childs
| None -> Unit
end in
|