shrub/pkg/base-dev/lib/sink.hoon

/+  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 stat]))]
  --
--
%sink 2023-07-09 12:15:24 +03:00			`/+ 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`
Made it compile 2023-07-19 21:02:09 +03:00			`[%give %fact pats %noun !>(^-((clog) [%flush stat]))]`
%sink 2023-07-09 12:15:24 +03:00			`--`
			`--`