Fix minor spelling mistake
commit428fcb74e6cfcc6c13ab485bbfe841695752f141
authorColin Woodbury <colin@fosskers.ca>
dateTue 4 Jun 2019, 12:38 (7 years ago)
parent544cfdc
Data/Aeson/Types/FromJSON.hs+1−1
@@ -1663,7 +1663,7 @@ instance FromJSON1 NonEmpty where
16631663 liftParseJSON p _ = withArray "NonEmpty" $
16641664 (>>= ne) . Tr.sequence . zipWith (parseIndexedJSON p) [0..] . V.toList
16651665 where
1666− ne [] = fail "parsing NonEmpty failed, unpexpected empty list"
1666+ ne [] = fail "parsing NonEmpty failed, unexpected empty list"
16671667 ne (x:xs) = pure (x :| xs)
16681668 {-# INLINE liftParseJSON #-}
16691669