@@ -18,7 +18,7 @@ import Control.Lens
1818import Control.Monad.Reader
1919
2020import Data.Aeson
21−import Data.Foldable (traverse_, for_)
21+import Data.Foldable (traverse_, for_, sequenceA_)
2222import Data.HashMap.Strict (HashMap)
2323import qualified Data.HashMap.Strict as HashMap
2424import qualified "unordered-containers" Data.HashSet as HashSet
@@ -134,7 +134,7 @@ validateWithSchema schema value
134134 Just (SwaggerItemsArray itemSchemas) ->
135135 when (Vector.length xs /= length itemSchemas)
136136 (invalid ("array size is invalid (should be exactly " ++ show (length itemSchemas) ++ "): " ++ show (encode xs)))
137− *> sequence_ (zipWith validateWithSchemaRef itemSchemas (Vector.toList xs))
137+ *> sequenceA_ (zipWith validateWithSchemaRef itemSchemas (Vector.toList xs))
138138 Nothing -> invalid "invalid schema: array item schema expected"
139139 *> when ((Just True == schema ^. uniqueItems) && not allUnique)
140140 (invalid $ "array is expected to contain unique items, but it does not: " ++ show (encode xs))