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"