Error handling with wrapped Failjure

(defprotocol HasData
  (data [self]))

(defrecord AnnotatedFailure [message data]

  f/HasFailed
  (failed? [self] true)
  (message [self] (:message self))

  HasData
  (data [self] (:data self)))


(defn fail
  "Returns `AnnotatedFailure` with a `message` and `data`"
  ([message]
   (->AnnotatedFailure message {}))
  ([message data]
   (->AnnotatedFailure message data))
  ([message data & fmt-parts]
   (->AnnotatedFailure (apply format message fmt-parts)
                       data)))