Improve more-> / more-of docs with exception example

[seancorfield]

user=> (expect (more-> clojure.lang.ExceptionInfo type
  #_=>                 (more-of {:keys [status responseCode]}
  #_=>                           409 status
  #_=>                           4001110 responseCode) ex-data)
  #_=>         (ex-info "boo" {:status 409 :responseCode 4001110}))
true