procRemoveImage
    :: ( Member Proc r
      , Member (Exception DockerEx) r)
    => [Image]
    -> Eff r ()
procRemoveImage imgs = do
    (status, _stdout, stderr) <- docker "rmi" (imageRepr <$> imgs)
    -- TODO: Parse actual response.
    when (isFailure status) $ throwException (parseError stderr)
    return ()
procRemoveImage
    :: ( Member Proc r
      , Member (Exception DockerEx) r)
    => [Image]
    -> Eff r ()
procRemoveImage imgs = do
    (status, _stdout, stderr) <- docker "rmi" (imageRepr <$> imgs)
    -- TODO: Parse actual response.
    when (isFailure status) $ throwException (parseError stderr)
    return ()
procRemoveImage imgs = do
    (status, _stdout, stderr) <- docker "rmi" (imageRepr <$> imgs)
    -- TODO: Parse actual response.
    when (isFailure status) $ throwException (parseError stderr)
    return ()