From 13c5cc88992e2453dcc4d0297c1fde258a409aea Mon Sep 17 00:00:00 2001
From: martinsumner <martin.sumner@adaptip.co.uk>
Date: Sun, 15 Jan 2017 10:36:50 +0000
Subject: [PATCH] Add timing points

Add some timing points to manifest updates
---
 src/leveled_log.erl    | 4 ++++
 src/leveled_pclerk.erl | 4 ++++
 2 files changed, 8 insertions(+)

diff --git a/src/leveled_log.erl b/src/leveled_log.erl
index fe9b448..637e99f 100644
--- a/src/leveled_log.erl
+++ b/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 "
diff --git a/src/leveled_pclerk.erl b/src/leveled_pclerk.erl
index ad9afbf..31d9861 100644
--- a/src/leveled_pclerk.erl
+++ b/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) ->