fix logging

2019-10-28 17:26:21 +01:00 · 2019-10-28 17:26:21 +01:00 · 42126a972d
parent 7c59021aee
commit 42126a972d
1 changed files with 2 additions and 1 deletions
--- 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"