haskus-utils-variant 3.2 → 3.2.1

raw patch · 2 files changed

+8/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• haskus-utils-variant.cabal +1/−1
• src/lib/Haskus/Utils/Variant/Excepts.hs +7/−2

@@ -1,5 +1,5 @@ name:                haskus-utils-variant-version:             3.2+version:             3.2.1 synopsis:            Variant and EADT license:             BSD3 license-file:        LICENSE

@@ -147,8 +147,13 @@     {-# INLINABLE (<*>) #-}     Excepts mf <*> Excepts ma = Excepts $ do       f <- mf-      a <- ma-      pure (f <*> a)+      case f of+        VLeft e -> return (VLeft e)+        VRight k -> do+          a <- ma+          case a of+            VLeft e -> return (VLeft e)+            VRight x -> return (VRight (k x))      {-# INLINABLE (*>) #-}     m *> k = m >>= \_ -> k