Cumulative histogram with ggplot2

Cumulative histogram with ggplot2

How could I get a cumulative histogram like this
x <- runif(100,0,10)
h <- hist(x)
h[["counts"]] <- cumsum(h[["counts"]])
plot(h)
with ggplot2?