polysemy-research/polysemy
1
1
Fork 0
mirror of https://github.com/polysemy-research/polysemy.git synced 2024-11-27 05:43:36 +03:00
Code Issues Projects Releases Wiki Activity

inline error actions

Browse Source
This commit is contained in:
Sandy Maguire 2019-03-20 00:39:13 -04:00
parent c059127810
commit e1061999a1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Polysemy/Error.hs
View File

@ -40,6 +40,7 @@ instance Effect (Error e) where
throw :: Member (Error e) r => e -> Semantic r a
throw = send . Throw
{-# INLINE throw #-}
catch
@ -48,6 +49,7 @@ catch
-> (e -> Semantic r a)
-> Semantic r a
catch try handle = send $ Catch try handle id
{-# INLINE catch #-}
runError :: Semantic (Error e ': r) a -> Semantic r (Either e a)