import qualified Data.Vector  as Vector

instance FromJSON a => FromJSON (NonEmptyList a) where
    parseJSON = withArray "NonEmptyList" $ \array ->
        maybe (fail "Unable to parse values") pure (parseValues array)
        where
            parseVec = sequence . Vector.toList . Vector.map fromJSON
            parseValues array = Vector.uncons array >>=
                \(head, tail) -> case (fromJSON head, parseVec tail) of
                    (Success x, Success xs) -> pure $ NonEmptyList x xs
                    _                       -> fail "Unable to parse values"

        , vector