mason.notify: fix munged refactoring
parent
cff70d6a9f
commit
d8a0441837
|
@ -16,8 +16,8 @@ IN: mason.notify
|
||||||
] { } make prepend
|
] { } make prepend
|
||||||
[ 5 ] 2dip '[
|
[ 5 ] 2dip '[
|
||||||
<process>
|
<process>
|
||||||
_ >>command
|
|
||||||
_ [ +closed+ ] unless* >>stdin
|
_ [ +closed+ ] unless* >>stdin
|
||||||
|
_ >>command
|
||||||
try-output-process
|
try-output-process
|
||||||
] retry
|
] retry
|
||||||
] [ 2drop ] if ;
|
] [ 2drop ] if ;
|
||||||
|
@ -47,4 +47,4 @@ IN: mason.notify
|
||||||
] bi ;
|
] bi ;
|
||||||
|
|
||||||
: notify-release ( archive-name -- )
|
: notify-release ( archive-name -- )
|
||||||
"Uploaded " prepend [ print flush ] [ mason-tweet ] bi ;
|
"Uploaded " prepend [ print flush ] [ mason-tweet ] bi ;
|
||||||
|
|
Loading…
Reference in New Issue