@@ -276,7 +276,8 @@ _wrapM m = \k -> m >>= k
276fromStopK :: IsStream t => StopK m -> t m a
276fromStopK :: IsStream t => StopK m -> t m a
277fromStopK k = mkStream $ \_ _ _ stp -> k stp
277fromStopK k = mkStream $ \_ _ _ stp -> k stp
279−-- | Make a singleton stream from a yield function.
279+-- | Make a singleton stream from a callback function. The callback function
280+-- calls the one-shot yield continuation to yield an element.
280fromYieldK :: IsStream t => YieldK m a -> t m a
281fromYieldK :: IsStream t => YieldK m a -> t m a
281fromYieldK k = mkStream $ \_ _ sng _ -> k sng
282fromYieldK k = mkStream $ \_ _ sng _ -> k sng