More timing logging

codedownio · May 18, 2024 · 0059335 · 0059335
1 parent 1e6e7a4
commit 0059335
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Transform/ClientNot.hs b/src/Transform/ClientNot.hs
@@ -46,7 +46,7 @@ transformClientNot sendExtraNotification meth msg = do
   p' <- transformClientNot' sendExtraNotification meth (msg ^. params)
   stop <- liftIO getCurrentTime
   let msg' = set params p' msg
-  when (msg' /= msg) $ logDebugN [i|Transforming client not #{meth} in #{diffUTCTime stop start}: (#{A.encode msg} --> #{A.encode msg'})|]
+  when (msg' /= msg) $ logDebugN [i|Transforming client not #{meth} in #{diffUTCTime stop start}, from #{start} -> #{stop}: (#{A.encode msg} --> #{A.encode msg'})|]
   return msg'
 
 transformClientNot' :: (