/lib/strandio: +trace monadic logger

This commit is contained in:
Ted Blackman 2020-05-15 03:58:36 -04:00
parent 88b834107c
commit d6b2b961bc

View File

@ -580,6 +580,12 @@
;< ~ bind:m (flog-text i.wall)
loop(wall t.wall)
::
++ trace
|= =tang
=/ m (strand ,~)
^- form:m
(pure:m ((slog tang) ~))
::
++ app-message
|= [app=term =cord =tang]
=/ m (strand ,~)