diff options
| -rw-r--r-- | src/dtree.erl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/dtree.erl b/src/dtree.erl index 473b4283e3..e88ad96322 100644 --- a/src/dtree.erl +++ b/src/dtree.erl @@ -65,7 +65,11 @@ empty() -> {gb_trees:empty(), gb_trees:empty()}. %% Insert an entry. Fails if there already is an entry with the given -%% primary key. The list of secondary keys should be non-empty. +%% primary key. +insert(PK, [], V, {P, S}) -> + %% dummy insert to force error if PK exists + gb_trees:insert(PK, {gb_sets:empty(), V}, P), + {P, S}; insert(PK, SKs, V, {P, S}) -> {gb_trees:insert(PK, {gb_sets:from_list(SKs), V}, P), lists:foldl(fun (SK, S0) -> |