diff --git a/pkg/base-dev/lib/sink.hoon b/pkg/base-dev/lib/sink.hoon new file mode 100644 index 0000000000..fe08349752 --- /dev/null +++ b/pkg/base-dev/lib/sink.hoon @@ -0,0 +1,26 @@ +/+ noun-diff +|% +++ clog + |$ [stut] + $% + [%flush stut] + [%drain patch:noun-diff] + == +++ sink + |* pats=(list path) + |* stat=* + |@ + ++ sync + |= [stat=_stat] + ^- [card:agent:gall _..sync] + =/ dif + %+ diff:noun-diff ^stat stat + :- + [%give %fact pats %noun !>(^-((clog) [%drain dif]))] + ..sync(stat stat) + ++ paths pats + ++ flush + ^- card:agent:gall + [%give %fact pats %noun !>(^-((clog) [%flush (extract stat)]))] + -- +-- \ No newline at end of file