diff --git a/src/Transform/ClientNot.hs b/src/Transform/ClientNot.hs index d9aa57b..7a2bcff 100644 --- 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' :: (