publish: add debug poke to reset the warp loop
?+ mar (on-poke:def mar vas)
::
%noun
- ?: =(q.vas %flush-limbo)
- [~ this(limbo [~ ~])]
+ ?+ q.vas
[~ this]
+ ::
+ %flush-limbo [~ this(limbo [~ ~])]
+ ::
+ %reset-warp
+ =/ rav [%sing %t [%da now.bol] /app/publish/notebooks]
+ :_ this
+ [%pass /read/paths %arvo %c %warp our.bol q.byk.bol `rav]~
+ ==
::
%handle-http-request
=+ !<([id=@ta req=inbound-request:eyre] vas)
