fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat(utils): throwLeftWith to facilitate ldap code

Browse Source
This commit is contained in:
Steffen Jost 2022-08-26 14:29:46 +02:00
parent 5f65e68b26
commit 8417eb57c9
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Utils.hs
View File

@ -883,6 +883,11 @@ whenIsRight (Left _) _ = pure ()
throwLeft :: (MonadThrow m, Exception exc) => Either exc a -> m a throwLeft :: (MonadThrow m, Exception exc) => Either exc a -> m a
throwLeft = either throwM return throwLeft = either throwM return
throwLeftWith :: (MonadThrow m, Exception e) => e -> Either b a -> m a
-- throwLeftWith e = either (const $ throwM e) return
throwLeftWith _ (Right x) = return x
throwLeftWith e (Left _) = throwM e
{- Just a reminder for Steffen: {- Just a reminder for Steffen:
mapLeft :: (a -> c) -> Either a b -> Either c b mapLeft :: (a -> c) -> Either a b -> Either c b
mapLeft = over _Left mapLeft = over _Left