diff options
| -rw-r--r-- | src/dtree.erl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/dtree.erl b/src/dtree.erl index 436bac558f..72abe248f5 100644 --- a/src/dtree.erl +++ b/src/dtree.erl @@ -124,9 +124,9 @@ take_all(SK, {P, S}) -> %% Drop all entries for the given primary key (which does not have to exist). drop(PK, {P, S}) -> case gb_trees:lookup(PK, P) of - none -> {P, S}; - {value, SKS} -> {gb_trees:delete(PK, P), - prune(SKS, gb_sets:singleton(PK), S)} + none -> {P, S}; + {value, {SKS, _V}} -> {gb_trees:delete(PK, P), + prune(SKS, gb_sets:singleton(PK), S)} end. is_defined(SK, {_P, S}) -> gb_trees:is_defined(SK, S). |