Use catchIO in the example

haskell-effectful · Oct 6, 2024 · 70e106f · 70e106f
1 parent e2b1ffa
commit 70e106f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/effectful-core/src/Effectful/Dispatch/Dynamic.hs b/effectful-core/src/Effectful/Dispatch/Dynamic.hs
@@ -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