traceBuildImage
    :: (Member Trace r, Member (Exception DockerEx) r)
    => Path -> Image -> Eff r Image
traceBuildImage path img = do
    trace . T.unpack $ "docker build --tag " <> imageRepr img <> " " <> pathToText unixSeparator path
    return img
traceBuildImage
    :: (Member Trace r, Member (Exception DockerEx) r)
    => Path -> Image -> Eff r Image
traceBuildImage path img = do
    trace . T.unpack $ "docker build --tag " <> imageRepr img <> " " <> pathToText unixSeparator path
    return img
traceBuildImage path img = do
    trace . T.unpack $ "docker build --tag " <> imageRepr img <> " " <> pathToText unixSeparator path
    return img