git.iko.soy/typeable/validationt
on 83e415e help sign in
a018271
swap
0 ahead, 5 behind
src/Control/Monad/Validation.hs+2−5
since splitsnapshots
unifiedsplit
@@ -38,14 +38,11 @@ import Data.Foldable as F
38import Data.Functor
38import Data.Functor
39import Data.List as L
39import Data.List as L
40import Data.Map.Strict as M
40import Data.Map.Strict as M
41+import Data.Monoid
41import Data.Text as T
42import Data.Text as T
42import Data.Vector as V
43import Data.Vector as V
43import Test.QuickCheck
44import Test.QuickCheck
44
45
45−#if MIN_VERSION_mtl(2,3,0)
46−import Control.Monad
47−import Control.Monad.Fix
48−#endif
49
46
50-- | Collects all thrown warnings in 'StateT' and errors
47-- | Collects all thrown warnings in 'StateT' and errors
51-- in 'ExceptT' into a single value using 'Monoid'.
48-- in 'ExceptT' into a single value using 'Monoid'.
@@ -89,7 +86,7 @@ instance (Ord k, Semigroup v) => Semigroup (MonoidMap k v) where
89
86
90instance (Ord k, Monoid v) => Monoid (MonoidMap k v) where
87instance (Ord k, Monoid v) => Monoid (MonoidMap k v) where
91 mempty = MonoidMap M.empty
88 mempty = MonoidMap M.empty
92− mappend = (<>)
89+ mappend = mmAppend
93
90
94instance (ToJSON k, ToJSON v) => ToJSON (MonoidMap k v) where
91instance (ToJSON k, ToJSON v) => ToJSON (MonoidMap k v) where
95 toJSON (MonoidMap m) = toJSON $ L.map toObj $ M.toList m
92 toJSON (MonoidMap m) = toJSON $ L.map toObj $ M.toList m
stack.yaml+1−1
@@ -15,7 +15,7 @@
15# resolver:
15# resolver:
16# name: custom-snapshot
16# name: custom-snapshot
17# location: "./custom-snapshot.yaml"
17# location: "./custom-snapshot.yaml"
18−resolver: lts-22.4
18+resolver: lts-16.20
19
19
20# User packages to be built.
20# User packages to be built.
21# Various formats can be used as shown in the example below.
21# Various formats can be used as shown in the example below.
validationt.cabal+5−5
@@ -29,14 +29,14 @@ source-repository head
29
29
30library
30library
31 exposed-modules: Control.Monad.Validation
31 exposed-modules: Control.Monad.Validation
32− build-depends: base >=4.10 && < 5
32+ build-depends: base >=4.8 && < 5
33− , aeson >=1.0
33+ , aeson >= 1.0
34 , containers
34 , containers
35− , exceptions >=0.9
35+ , exceptions
36 , lens
36 , lens
37 , monad-control
37 , monad-control
38− , mtl <2.3 || >2.3
38+ , mtl
39− , QuickCheck >=2.8.2
39+ , QuickCheck
40 , text
40 , text
41 , transformers
41 , transformers
42 , transformers-base
42 , transformers-base