errors-ext 0.2 → 0.2.1

raw patch · 2 files changed

+3/−1 lines, 2 files

Files

• errors-ext.cabal +1/−1
• src/Control/Error/Extensions.hs +2/−0

@@ -1,5 +1,5 @@ name: errors-ext-version: 0.2+version: 0.2.1 synopsis: Bracket-like functions for ExceptT over IO monad. description: Bracket-like functions for ExceptT over IO monad. homepage: https://github.com/A1-Triard/errors-ext#readme

@@ -45,7 +45,9 @@     caseResult (Left e) _ = Left e     caseResult (Right _) (Left e) = Left e     caseResult (Right r) (Right _) = Right r+{-# INLINE bracketE #-}  -- | A variant of 'bracketE' where the return value from the first computation is not required. bracketE_ :: MonadMask m => ExceptT e m a -> ExceptT e m b -> ExceptT e m c -> ExceptT e m c bracketE_ acquire release action = bracketE acquire (const release) (const action)+{-# INLINE bracketE_ #-}