From 41b04971e55a6b8b989c43cf780b2ad2ae66c2fc Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Thu, 28 Dec 2017 14:53:30 +0100 Subject: Fixes mixup between owner and object id. --- src/io/timed_cache.erl | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) (limited to 'src/io/timed_cache.erl') diff --git a/src/io/timed_cache.erl b/src/io/timed_cache.erl index ec58caa..8fa2861 100644 --- a/src/io/timed_cache.erl +++ b/src/io/timed_cache.erl @@ -88,10 +88,21 @@ fetch (DB, Owner, ObjectID) -> end. invalidate (DB, Owner, ObjectID) -> - case ets:lookup(DB, {Owner, ObjectID}) of - [] -> ok; + case ets:lookup(db, {Owner, ObjectID}) of + [] -> + io:format + ( + "~nInvalidation request on non-stored entry: ~p.~n", + [{DB, Owner, ObjectID}] + ), + ok; [{_, TimerPID, _}] -> + io:format + ( + "~nInvalidation request on stored entry: ~p.~n", + [{DB, Owner, ObjectID}] + ), gen_server:stop(TimerPID) end. -- cgit v1.2.3-70-g09d2