validation 0.3.3 → 0.3.4

raw patch · 2 files changed

+8/−8 lines, 2 files

Files

• src/Data/Validation.hs +7/−7
• validation.cabal +1/−1

@@ -23,7 +23,7 @@  import Control.Applicative(Applicative(..), Alternative(..), liftA2, (<$>)) import Control.Lens.Prism(Prism, prism)-import Control.Lens.Iso(Swapped(..), Iso', iso, from)+import Control.Lens.Iso(Swapped(..), Iso, iso, from) import Control.Lens.Review(( # )) import Control.Monad(Monad(..)) import Data.Bifoldable(Bifoldable(..))@@ -403,7 +403,7 @@       (\(ValidationT x) -> ValidationT (fmap (swapped # ) x))  isoAccValidationEither ::-  Iso' (AccValidation e a) (Either e a)+  Iso (AccValidation e a) (AccValidation f b) (Either e a) (Either f b) isoAccValidationEither =   iso     (\v -> case v of@@ -414,7 +414,7 @@              Right a -> AccSuccess a)  isoValidationEither ::-  Iso' (Validation e a) (Either e a)+  Iso (Validation e a) (Validation f b) (Either e a) (Either f b) isoValidationEither =   iso     (\v -> case v of@@ -425,7 +425,7 @@              Right a -> Success a)  isoAccValidationValidation ::-  Iso' (AccValidation e a) (Validation e a)+  Iso (AccValidation e a) (AccValidation f b) (Validation e a) (Validation f b) isoAccValidationValidation =   iso     (\v -> case v of@@ -436,7 +436,7 @@              Success a -> AccSuccess a)  isoValidationTEither ::-  Iso' (Validation' e a) (Either e a)+  Iso (Validation' e a) (Validation' f b) (Either e a) (Either f b) isoValidationTEither =   iso     (\(ValidationT v) -> case runIdentity v of@@ -447,11 +447,11 @@               Right a -> Success a)))  isoAccValidationValidationT ::-  Iso' (AccValidation e a) (Validation' e a)+  Iso (AccValidation e a) (AccValidation f b) (Validation' e a) (Validation' f b) isoAccValidationValidationT =   isoAccValidationEither . from isoValidationTEither  isoValidationValidationT ::-  Iso' (Validation e a) (Validation' e a)+  Iso (Validation e a) (Validation f b) (Validation' e a) (Validation' f b) isoValidationValidationT =   isoValidationEither . from isoValidationTEither

@@ -1,5 +1,5 @@ name:               validation-version:            0.3.3+version:            0.3.4 license:            BSD3 license-file:       LICENSE author:             Tony Morris <ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ>, Nick Partridge