-- | The spec requires @"minItems"@ to be non-negative.
minItemsVal :: MinItems -> Vector Value -> Maybe MinItemsInvalid
minItemsVal a@(MinItems n) xs
    | n < 0           = Nothing
    | V.length xs < n = Just (MinItemsInvalid a xs)
    | otherwise       = Nothing
minItemsVal :: MinItems -> Vector Value -> Maybe MinItemsInvalid
minItemsVal a@(MinItems n) xs
    | n < 0           = Nothing
    | V.length xs < n = Just (MinItemsInvalid a xs)
    | otherwise       = Nothing
minItemsVal a@(MinItems n) xs
    | n < 0           = Nothing
    | V.length xs < n = Just (MinItemsInvalid a xs)
    | otherwise       = Nothing