Add timing points

Add some timing points to manifest updates

src/leveled_log.erl

@@ -159,6 +159,10 @@
         {info, "File created"}},
     {"PC016",
         {info, "Slow fetch from SFT ~w of ~w microseconds with result ~w"}},
+    {"PC017",
+        {info, "Notified clerk of manifest change"}},
+    {"PC018",
+        {info, "Saved manifest file"}},
     
     {"I0001",
         {info, "Unexpected failure to fetch value for Key=~w SQN=~w "

src/leveled_pclerk.erl

@@ -109,10 +109,14 @@ handle_work({SrcLevel, Manifest}, State) ->
                                             Manifest,
                                             State#state.root_path),
     leveled_log:log("PC007", []),
+    SWMC = os:timestamp(),
     ok = leveled_penciller:pcl_manifestchange(State#state.owner,
                                                     UpdManifest),
+    leveled_log:log_timer("PC017", [], SWMC),
+    SWSM = os:timestamp(),
     ok = leveled_manifest:save_manifest(UpdManifest,
                                             State#state.root_path),
+    leveled_log:log_timer("PC018", [], SWSM),
     ok = notify_deletions(EntriesToDelete, State#state.owner).
 
 merge(SrcLevel, Manifest, RootPath) ->