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

-- | Build a Docker 'Image' using the @Dockerfile@ in a directory.
procPullImage
    :: ( Member Proc r
      , Member (Exception DockerEx) r)
    => Image
    -> Eff r ()
procPullImage img = do
    (status, _stdout, stderr) <- docker "pull" [imageRepr img]
    when (isFailure status) $ throwException (parseError stderr)
    return ()

-- | Build a Docker 'Image' using the @Dockerfile@ in a directory.
procPullImage img = do
    (status, _stdout, stderr) <- docker "pull" [imageRepr img]
    when (isFailure status) $ throwException (parseError stderr)
    return ()

-- | Build a Docker 'Image' using the @Dockerfile@ in a directory.