@@ -32,7 +32,7 @@ module Json.Decode
32import qualified Data.ByteString.Internal as B
32import qualified Data.ByteString.Internal as B
33import qualified Data.Map as Map
33import qualified Data.Map as Map
34import qualified Data.NonEmptyList as NE
34import qualified Data.NonEmptyList as NE
35−import Data.Word (Word8, Word16)
35+import Data.Word (Word8)
36import Foreign.Ptr (Ptr, plusPtr, minusPtr)
36import Foreign.Ptr (Ptr, plusPtr, minusPtr)
37import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
37import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
@@ -630,7 +630,7 @@ data StringStatus
630 | BadString StringProblem
630 | BadString StringProblem
633−pStringHelp :: Ptr Word8 -> Ptr Word8 -> Word16 -> Word16 -> (# StringStatus, Ptr Word8, Word16, Word16 #)
633+pStringHelp :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> (# StringStatus, Ptr Word8, Row, Col #)
634pStringHelp pos end row col =
634pStringHelp pos end row col =
635 if pos >= end then
635 if pos >= end then
636 (# BadString BadStringEnd, pos, row, col #)
636 (# BadString BadStringEnd, pos, row, col #)
@@ -708,7 +708,7 @@ spaces =
708 cok () newState
708 cok () newState
711−eatSpaces :: Ptr Word8 -> Ptr Word8 -> Word16 -> Word16 -> (# Ptr Word8, Word16, Word16 #)
711+eatSpaces :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> (# Ptr Word8, Row, Col #)
712eatSpaces pos end row col =
712eatSpaces pos end row col =
713 if pos >= end then
713 if pos >= end then
714 (# pos, row, col #)
714 (# pos, row, col #)