sink shortcuts

diff --git a/src/core/stream.slate b/src/core/stream.slate
index 4028a85..75e877f 100644 (file)
--- a/src/core/stream.slate
+++ b/src/core/stream.slate
@@ -268,7 +268,7 @@ s@(WriteStream traits) ; c
   s
 ].
 
-source@(Stream traits) >> sink
+source@(Stream traits) >> sink@(WriteStream traits)
 "Write the contents from source to target one element at a time."
 [
   [source isAtEnd]
@@ -276,6 +276,9 @@ source@(Stream traits) >> sink
   sink
 ].
 
+source@(Stream traits) >> sink
+[source >> sink writer].
+
 sink@(Stream traits) << source
 [source >> sink].