tracePushImage
    :: (Member Trace r, Member (Exception DockerEx) r)
    => Image -> Eff r ()
tracePushImage img =
    trace $ "docker push " <> T.unpack (imageRepr img)
tracePushImage
    :: (Member Trace r, Member (Exception DockerEx) r)
    => Image -> Eff r ()
tracePushImage img =
    trace $ "docker push " <> T.unpack (imageRepr img)
tracePushImage img =
    trace $ "docker push " <> T.unpack (imageRepr img)