From 42126a972d483cb635a4626a15dd1bc48becc02c Mon Sep 17 00:00:00 2001 From: nek0 Date: Mon, 28 Oct 2019 17:26:21 +0100 Subject: [PATCH] fix logging --- src/Object/Copier.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Object/Copier.hs b/src/Object/Copier.hs index 279fca6..1330eb8 100644 --- a/src/Object/Copier.hs +++ b/src/Object/Copier.hs @@ -29,7 +29,8 @@ copierObjectAction dt t@ObjCopier s@"copying" ent = do mtime <- queryMaybe objStateTime case mtime of Nothing -> do - liftIO $ logIO Verbose ("Copier " ++ show ent ++ ": copying!") + liftIO $ logIO Verbose + ("Copier " <> fromString (show ent) <> ": copying!") return unchanged { objStateTime = Set (actionTime t s) , objState = Set "copying"