procPushImage
    :: ( Member Proc r
      , Member (Exception DockerEx) r)
    => Image
    -> Eff r ()
procPushImage img = do
    (status, _stdout, stderr) <- docker "push" [imageRepr img]
    when (isFailure status) $ throwException (parseError stderr)
    return ()

-- | Pull a Docker 'Image'.
procPushImage
    :: ( Member Proc r
      , Member (Exception DockerEx) r)
    => Image
    -> Eff r ()
procPushImage img = do
    (status, _stdout, stderr) <- docker "push" [imageRepr img]
    when (isFailure status) $ throwException (parseError stderr)
    return ()

-- | Pull a Docker 'Image'.
procPushImage img = do
    (status, _stdout, stderr) <- docker "push" [imageRepr img]
    when (isFailure status) $ throwException (parseError stderr)
    return ()

-- | Pull a Docker 'Image'.