@@ -276,7 +276,8 @@ _wrapM m = \k -> m >>= k
276276fromStopK :: IsStream t => StopK m -> t m a
277277fromStopK k = mkStream $ \_ _ _ stp -> k stp
278278
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.
280281fromYieldK :: IsStream t => YieldK m a -> t m a
281282fromYieldK k = mkStream $ \_ _ sng _ -> k sng
282283