dandri/simplexmq
1
0 Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-10-23 08:42:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

move tryError to Simplex.Messaging.Util (#191)

Browse Source
This commit is contained in:
Evgeny Poberezkin authored and GitHub committed 2021-09-04 19:01:54 +01:00
1 parent 2ac903a2dd
commit e07bedac0e
2 files changed
+4 -2
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

src/Simplex/Messaging/Util.hs
+3
View File
@@ -50,3 +50,6 @@ liftError f = liftEitherError f . runExceptT
liftEitherError :: (MonadIO m, MonadError e' m) => (e -> e') -> IO (Either e a) -> m a
liftEitherError f a = liftIOEither (first f <$> a)
tryError :: MonadError e m => m a -> m (Either e a)
tryError action = (Right <$> action) `catchError` (pure . Left)