Add traced function for the docs.
commitfd57f4bf37590277a9d3c207ce7b16e7be793362
authorSibi Prabakaran <sibi@psibi.in>
dateMon 18 Dec 2017, 02:34 (9 years ago)
parent9a0c3a8
src/Streamly/Tutorial.hs+1
@@ -292,6 +292,7 @@ import Control.Monad.Trans.Class (MonadTrans (lift))
292292--
293293-- @
294294-- main = 'runStreamT' $ traced (sqrt 9) '<|' traced (sqrt 16) '<|' traced (sqrt 25)
295+-- where traced m = liftIO (myThreadId >>= print) >> m
295296-- @
296297-- @
297298-- ThreadId 40