fix logging

This commit is contained in:
nek0 2019-10-28 17:26:21 +01:00
parent 7c59021aee
commit 42126a972d

View file

@ -29,7 +29,8 @@ copierObjectAction dt t@ObjCopier s@"copying" ent = do
mtime <- queryMaybe objStateTime mtime <- queryMaybe objStateTime
case mtime of case mtime of
Nothing -> do Nothing -> do
liftIO $ logIO Verbose ("Copier " ++ show ent ++ ": copying!") liftIO $ logIO Verbose
("Copier " <> fromString (show ent) <> ": copying!")
return unchanged return unchanged
{ objStateTime = Set (actionTime t s) { objStateTime = Set (actionTime t s)
, objState = Set "copying" , objState = Set "copying"