09b2ddc · typeable/aeson

40import Data.Text.Encoding (decodeUtf8')

41import Data.Text.Internal.Encoding.Utf8 (ord2, ord3, ord4)

42import Data.Text.Internal.Unsafe.Char (ord)

43−import Data.Vector as Vector (Vector, empty, fromList)

43+import Data.Vector as Vector (Vector, empty, fromList, reverse)

44import Data.Word (Word8)

45import Foreign.ForeignPtr (withForeignPtr)

46import Foreign.Ptr (minusPtr)

142 w <- A.peekWord8'

143 if w == CLOSE_SQUARE

144 then A.anyWord8 >> return Vector.empty

145− else Vector.fromList <$> loop

145+ else loop []

146 where

147− loop = do

147+ loop acc = do

148 v <- val <* skipSpace

149 ch <- A.satisfy $ \w -> w == COMMA || w == CLOSE_SQUARE

150 if ch == COMMA

151− then skipSpace >> (v:) <$> loop

151+ then skipSpace >> loop (v:acc)

152− else return [v]

152+ else return (Vector.reverse (Vector.fromList (v:acc)))

153{-# INLINE arrayValues #-}

154

155-- | Parse any JSON value. You should usually 'json' in preference to