diff --git a/src/leveled_log.erl b/src/leveled_log.erl index 091e454..f8498f5 100644 --- a/src/leveled_log.erl +++ b/src/leveled_log.erl @@ -65,8 +65,7 @@ {"P0004", {info, "Remaining ledger snapshots are ~w"}}, {"P0005", - {info, "Delete confirmed as file ~s is removed from " ++ - "unreferenced files"}}, + {info, "Delete confirmed as file ~s is removed from Manifest"}}, {"P0006", {info, "Orphaned reply after timeout on L0 file write ~s"}}, {"P0007", diff --git a/src/leveled_manifest.erl b/src/leveled_manifest.erl index 894d344..d308cbc 100644 --- a/src/leveled_manifest.erl +++ b/src/leveled_manifest.erl @@ -45,12 +45,12 @@ add_snapshot/3, release_snapshot/2, ready_to_delete/2, + delete_confirmed/2, check_for_work/2, is_basement/2, dump_pidmap/1, levelzero_present/1, - pointer_convert/2, - delete_confirmed/2 + pointer_convert/2 ]). -export([ @@ -298,6 +298,12 @@ ready_to_delete(Manifest, Filename) -> P} end. +delete_confirmed(Manifest, Filename) -> + PidMap = dict:erase(Filename, Manifest#manifest.pidmap), + % Would be better to clear ETS at this point rather than on lookup? + Manifest#manifest{pidmap = PidMap}. + + check_for_work(Manifest, Thresholds) -> CheckLevelFun = fun({Level, MaxCount}, {AccL, AccC}) -> @@ -333,11 +339,6 @@ levelzero_present(Manifest) -> true end. -delete_confirmed(Manifest, Filename) -> - PidMap = dict:erase(Filename, Manifest#manifest.pidmap), - % Would be better to clear ETS at this point rather than on lookup? - Manifest#manifest{pidmap = PidMap}. - %%%============================================================================ %%% Internal Functions %%%============================================================================