sayo-hs/heftia
1
1
Fork 0
mirror of https://github.com/sayo-hs/heftia.git synced 2024-11-23 02:42:06 +03:00
Code Issues Actions 2 Packages Projects Releases Wiki Activity

[fix] Adjust description string in the stream example.

Browse Source
This commit is contained in:
Yamada Ryo 2024-10-27 12:26:43 +09:00
parent 496b37cd06
commit 3c7ee1d471
No known key found for this signature in database
GPG Key ID: AAE3C7A542B02DBF
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
heftia-effects/Example/Stream/Main.hs
View File

@ -97,7 +97,7 @@ main = runUnliftIO . runTimerIO . runResourceIO $ do
>>> Unit @Int @Int plus100
>>> Unit @Int @() consume
liftIO $ putStrLn "\n[IO-based (TMVar-based) machinery interpretation example]"
liftIO $ putStrLn "\n[IO-fused machinery interpretation example]"
let produceWithBracket = do
bracket_
@ -124,7 +124,7 @@ Transform 3 to 103
Transform 4 to 104
104
[IO-based (TMVar-based) machinery interpretation example]
[IO-fused machinery interpretation example]
Acquiring resource
Transform 1 to 101
101