f7fb37b...master · typeable/validationt

src/Control/Monad/Validation.hs+5−2

since splitsnapshots

unifiedsplit

@@ -38,11 +38,14 @@ import Data.Foldable as F

38import Data.Functor

39import Data.List as L

40import Data.Map.Strict as M

41−import Data.Monoid

42import Data.Text as T

41import Data.Text as T

43import Data.Vector as V

42import Data.Vector as V

44import Test.QuickCheck

43import Test.QuickCheck

45

44

45+#if MIN_VERSION_mtl(2,3,0)

46+import Control.Monad

47+import Control.Monad.Fix

48+#endif

46

49

47-- | Collects all thrown warnings in 'StateT' and errors

50-- | Collects all thrown warnings in 'StateT' and errors

48-- in 'ExceptT' into a single value using 'Monoid'.

51-- in 'ExceptT' into a single value using 'Monoid'.

@@ -86,7 +89,7 @@ instance (Ord k, Semigroup v) => Semigroup (MonoidMap k v) where

86

89

87instance (Ord k, Monoid v) => Monoid (MonoidMap k v) where

90instance (Ord k, Monoid v) => Monoid (MonoidMap k v) where

88 mempty = MonoidMap M.empty

91 mempty = MonoidMap M.empty

89− mappend = mmAppend

92+ mappend = (<>)

90

93

91instance (ToJSON k, ToJSON v) => ToJSON (MonoidMap k v) where

94instance (ToJSON k, ToJSON v) => ToJSON (MonoidMap k v) where

92 toJSON (MonoidMap m) = toJSON $ L.map toObj $ M.toList m

95 toJSON (MonoidMap m) = toJSON $ L.map toObj $ M.toList m

stack.yaml+1−1

@@ -15,7 +15,7 @@

15# resolver:

16# name: custom-snapshot

17# location: "./custom-snapshot.yaml"

18−resolver: lts-16.20

18+resolver: lts-22.4

19

20# User packages to be built.

21# Various formats can be used as shown in the example below.

validationt.cabal+8−6

@@ -4,7 +4,9 @@

4name: validationt

5version: 0.3.0

6synopsis: Straightforward validation monad

7+description:

7−description: A simple data validation library. The main idea is to provide an easy way to validate web form data by aggregating errors for each field.

8+ A simple data validation library. The main idea is to provide an easy way to validate web form data by aggregating errors for each field.

9+ .

8homepage: https://github.com/typeable/validationt

10homepage: https://github.com/typeable/validationt

9license: BSD3

11license: BSD3

10license-file: LICENSE

12license-file: LICENSE

@@ -27,14 +29,14 @@ source-repository head

27

29

28library

30library

29 exposed-modules: Control.Monad.Validation

31 exposed-modules: Control.Monad.Validation

30− build-depends: base >=4.8 && < 5

32+ build-depends: base >=4.10 && < 5

31− , aeson >= 1.0

33+ , aeson >=1.0

32 , containers

34 , containers

33− , exceptions

35+ , exceptions >=0.9

34 , lens

36 , lens

35 , monad-control

37 , monad-control

36− , mtl

38+ , mtl <2.3 || >2.3

37− , QuickCheck

39+ , QuickCheck >=2.8.2

38 , text

40 , text

39 , transformers

41 , transformers

40 , transformers-base

42 , transformers-base