docket: +add-fact after %site install
The fact used to be generated before we updated the state to reflect the
new status of the charge. Moves fact creation after the state is
updated, ensuring that %site desks will install properly inside the web
interface
:: if the new chad is a site, we're instantly done
::
?: ?=(%site -.href.docket)
- :- ~[add-fact:cha]
=. charges (new-chad:cha %site ~)
+ :- ~[add-fact:cha]
state
::
=. by-base (~(put by by-base) base.href.docket desk)
