Commit bbafea68 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

Fix counting error

parent 189687c7
## 1.6.3 (2021/07/26)
* Bug Fix (counting error with -key option)
## 1.6.2 (2021/07/26)
* add option `-key` for `grew count`
......
......@@ -289,9 +289,9 @@ let count () =
match Matching.get_value_opt ~config key pattern graph matching with
| None -> "undefined"
| Some v -> v in
match String_map.find_opt value acc with
| None -> String_map.add value 1 acc
| Some old -> String_map.add value (old+1) acc
match String_map.find_opt value acc2 with
| None -> String_map.add value 1 acc2
| Some old -> String_map.add value (old+1) acc2
) acc matchings
) String_map.empty data in
(Corpus_desc.get_id corpus_desc, dist)
......
Supports Markdown
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