diff --git a/src/leveled_log.erl b/src/leveled_log.erl index 637e99f..525586d 100644 --- a/src/leveled_log.erl +++ b/src/leveled_log.erl @@ -127,7 +127,10 @@ {warn, "Snapshot with pid ~w timed out and so deletion will " ++ "continue regardless"}}, {"P0035", - {info, "Startup with Manifest SQN of ~w~n"}}, + {info, "Startup with Manifest SQN of ~w"}}, + {"P0036", + {info, "Garbage collection on mnaifest removes key for filename ~s"}}, + {"PC001", {info, "Penciller's clerk ~w started with owner ~w"}}, {"PC002", diff --git a/src/leveled_manifest.erl b/src/leveled_manifest.erl index cd6fc12..316a09b 100644 --- a/src/leveled_manifest.erl +++ b/src/leveled_manifest.erl @@ -480,6 +480,7 @@ key_lookup(Manifest, Level, {LastKey, LastFN}, KeyToFind, ManSQN, GC) -> {true, GC_SQN} -> case TombSQN < GC_SQN of true -> + leveled_log:log("P0036", [element(3, K)]), ets:delete(Manifest, K); false -> ok