docket: show error msgs earlier during glob upload
The error could mean that we don't have a valid `desk`. We want to show that
message, instead of trying to `(~(got by charges) desk)`.
Fixes
[[404^~ ~] [~ state]]
::
=; [desk=@ta =glob err=(list @t)]
+ =* error-result
+ :_ [~ state]
+ [[400 ~] `(upload-page err)]
+ ::
+ ?. =(~ err) error-result
+ ::
=* cha ~(. ch desk)
=/ =charge (~(got by charges) desk)
::
=? err !?=(%glob -.href.docket.charge)
['desk does not use glob' err]
::
- ?. =(~ err)
- :_ [~ state]
- [[400 ~] `(upload-page err)]
+ ?. =(~ err) error-result
:- [[200 ~] `(upload-page 'successfully globbed' ~)]
?> ?=(%glob -.href.docket.charge)
::
