traceTagImage
    :: (Member Trace r, Member (Exception DockerEx) r)
    => Image -> Tag -> Eff r Image
traceTagImage img@(Image name _tag) tag' = do
    let img' = Image name tag'
    trace . T.unpack $ "docker tag " <> imageRepr img <> " " <> imageRepr img'
    return img'
traceTagImage
    :: (Member Trace r, Member (Exception DockerEx) r)
    => Image -> Tag -> Eff r Image
traceTagImage img@(Image name _tag) tag' = do
    let img' = Image name tag'
    trace . T.unpack $ "docker tag " <> imageRepr img <> " " <> imageRepr img'
    return img'
traceTagImage img@(Image name _tag) tag' = do
    let img' = Image name tag'
    trace . T.unpack $ "docker tag " <> imageRepr img <> " " <> imageRepr img'
    return img'