git.iko.soy/streamly
on master help sign in
Add traced function for the docs.
fd57f4bSibi Prabakaran
src/Streamly/Tutorial.hs+1
compare with master
unifiedsplit
@@ -292,6 +292,7 @@ import Control.Monad.Trans.Class (MonadTrans (lift))
292--
292--
293-- @
293-- @
294-- main = 'runStreamT' $ traced (sqrt 9) '<|' traced (sqrt 16) '<|' traced (sqrt 25)
294-- main = 'runStreamT' $ traced (sqrt 9) '<|' traced (sqrt 16) '<|' traced (sqrt 25)
295+-- where traced m = liftIO (myThreadId >>= print) >> m
295-- @
296-- @
296-- @
297-- @
297-- ThreadId 40
298-- ThreadId 40