git.iko.soy/elk
on master help sign in
use Row/Col type aliases in JSON parser
commit94bc5ed919de5580aa8c0dd7e1d970198896aa21 authorEvan Czaplicki <evancz@users.noreply.github.com> dateTue 16 Jul 2019, 17:58 (7 years ago) parent10f299b
1 file changed+3−3
compare with master
unifiedsplit
compiler/src/Json/Decode.hs+3−3
compiler/src/Json/Decode.hs+3−3
@@ -32,7 +32,7 @@ module Json.Decode
3232import qualified Data.ByteString.Internal as B
3333import qualified Data.Map as Map
3434import qualified Data.NonEmptyList as NE
35−import Data.Word (Word8, Word16)
35+import Data.Word (Word8)
3636import Foreign.Ptr (Ptr, plusPtr, minusPtr)
3737import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)
3838
@@ -630,7 +630,7 @@ data StringStatus
630630 | BadString StringProblem
631631
632632
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 #)
634634pStringHelp pos end row col =
635635 if pos >= end then
636636 (# BadString BadStringEnd, pos, row, col #)
@@ -708,7 +708,7 @@ spaces =
708708 cok () newState
709709
710710
711−eatSpaces :: Ptr Word8 -> Ptr Word8 -> Word16 -> Word16 -> (# Ptr Word8, Word16, Word16 #)
711+eatSpaces :: Ptr Word8 -> Ptr Word8 -> Row -> Col -> (# Ptr Word8, Row, Col #)
712712eatSpaces pos end row col =
713713 if pos >= end then
714714 (# pos, row, col #)