haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-27 01:45:16 +03:00
Code Issues Projects Releases Wiki Activity

Use catchIO in the example

Browse Source
This commit is contained in:
Andrzej Rybczak 2024-10-06 15:56:01 +02:00
parent e2b1ffadf8
commit 70e106f9ac
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
effectful-core/src/Effectful/Dispatch/Dynamic.hs
View File

@ -168,7 +168,7 @@ import Effectful.Internal.Utils
-- ReadFile path -> adapt $ IO.readFile path
-- WriteFile path contents -> adapt $ IO.writeFile path contents
-- where
-- adapt m = liftIO m `catch` \(e::IOException) -> throwError . FsError $ show e
-- adapt m = liftIO m `catchIO` \e -> throwError . FsError $ show e
-- :}
--
-- Here, we use 'interpret' and simply execute corresponding 'IO' actions for