diff --git a/src/cljs/ireadit/events.cljs b/src/cljs/ireadit/events.cljs index cead295..211fdfc 100644 --- a/src/cljs/ireadit/events.cljs +++ b/src/cljs/ireadit/events.cljs @@ -46,14 +46,16 @@ :format (ajax/json-request-format) :response-format (ajax/json-response-format) :on-success [:set-transcription] - :on-failure [:bad-transcription]}}))) + :on-failure [:bad-transcription]} + :db (dissoc (dissoc db :transcription) :common/error)}))) (rf/reg-event-fx :bad-transcription (fn [{db :db} [_ response]] ;; TODO: signal something has failed? It doesn't matter very much, unless it keeps failing. - (js/console.log (str "Failed to fetch transcription data" response)))) + (js/console.log (str "Failed to fetch transcription data" response)) + (assoc db :common/error response))) (rf/reg-event-db :common/set-error diff --git a/src/cljs/ireadit/views/form.cljs b/src/cljs/ireadit/views/form.cljs index 0814982..d1476f6 100644 --- a/src/cljs/ireadit/views/form.cljs +++ b/src/cljs/ireadit/views/form.cljs @@ -30,5 +30,8 @@ [b/Row] [b/Row [:div.col-sm-12 - [b/Alert {:color "success"} @(rf/subscribe [:transcription])]]]]]) + [b/Alert {:color "success"} @(rf/subscribe [:transcription])]]] + [b/Row + [:div.col-sm-12 + [b/Alert {:color "warning"} @(rf/subscribe [:common/error])]]]]])