module HaskellWorks.Data.Json.Succinct.Cursor
( module X
, jsonTokenAt
) where
import qualified Data.Attoparsec.ByteString.Char8 as ABC
import Data.ByteString.Internal as BSI
import HaskellWorks.Data.Json.Final.Tokenize.Internal
import HaskellWorks.Data.Json.Succinct.Cursor.CursorType as X
import HaskellWorks.Data.Json.Succinct.Cursor.Internal as X
import HaskellWorks.Data.Positioning
import HaskellWorks.Data.Succinct.RankSelect.Binary.Basic.Rank1
import HaskellWorks.Data.Succinct.RankSelect.Binary.Basic.Select1
import HaskellWorks.Data.Vector.VectorLike
jsonTokenAt :: (Rank1 w, Select1 v) => JsonCursor ByteString v w -> JsonToken
jsonTokenAt k = case ABC.parse parseJsonToken (vDrop (toCount (jsonCursorPos k)) (cursorText k)) of
ABC.Fail {} -> error "Failed to parse token in cursor"
ABC.Partial _ -> error "Failed to parse token in cursor"
ABC.Done _ r -> r