@@ -1663,7 +1663,7 @@ instance FromJSON1 NonEmpty where
1663 liftParseJSON p _ = withArray "NonEmpty" $
1663 liftParseJSON p _ = withArray "NonEmpty" $
1664 (>>= ne) . Tr.sequence . zipWith (parseIndexedJSON p) [0..] . V.toList
1664 (>>= ne) . Tr.sequence . zipWith (parseIndexedJSON p) [0..] . V.toList
1666− ne [] = fail "parsing NonEmpty failed, unpexpected empty list"
1666+ ne [] = fail "parsing NonEmpty failed, unexpected empty list"
1667 ne (x:xs) = pure (x :| xs)
1667 ne (x:xs) = pure (x :| xs)
1668 {-# INLINE liftParseJSON #-}
1668 {-# INLINE liftParseJSON #-}