module HaskellWorks.Data.Json.Internal.Standard.Cursor.Token ( jsonTokenAt ) where import Data.ByteString.Internal as BSI import HaskellWorks.Data.Bits.BitWise import HaskellWorks.Data.Drop import HaskellWorks.Data.Json.Internal.Standard.Token.Tokenize import HaskellWorks.Data.Json.Standard.Cursor.Generic import HaskellWorks.Data.Positioning import HaskellWorks.Data.RankSelect.Base.Rank1 import HaskellWorks.Data.RankSelect.Base.Select1 import Prelude hiding (drop) import qualified Data.Attoparsec.ByteString.Char8 as ABC jsonTokenAt :: (Rank1 w, Select1 v, TestBit w) => GenericCursor ByteString v w -> Maybe (JsonToken String Double) jsonTokenAt :: GenericCursor ByteString v w -> Maybe (JsonToken String Double) jsonTokenAt GenericCursor ByteString v w k = if GenericCursor ByteString v w -> w forall t v w. GenericCursor t v w -> w balancedParens GenericCursor ByteString v w k w -> Position -> Bool forall a. TestBit a => a -> Position -> Bool .?. Count -> Position lastPositionOf (GenericCursor ByteString v w -> Count forall t v w. GenericCursor t v w -> Count cursorRank GenericCursor ByteString v w k) then case Parser (JsonToken String Double) -> ByteString -> Result (JsonToken String Double) forall a. Parser a -> ByteString -> Result a ABC.parse Parser (JsonToken String Double) forall t s d. ParseJson t s d => Parser t (JsonToken s d) parseJsonToken (Count -> ByteString -> ByteString forall v. Drop v => Count -> v -> v drop (Position -> Count forall a. ToCount a => a -> Count toCount (GenericCursor ByteString v w -> Position forall w v s. (Rank1 w, Select1 v) => GenericCursor s v w -> Position jsonCursorPos GenericCursor ByteString v w k)) (GenericCursor ByteString v w -> ByteString forall t v w. GenericCursor t v w -> t cursorText GenericCursor ByteString v w k)) of ABC.Fail {} -> String -> Maybe (JsonToken String Double) forall a. HasCallStack => String -> a error String "Failed to parse token in cursor" ABC.Partial ByteString -> Result (JsonToken String Double) _ -> String -> Maybe (JsonToken String Double) forall a. HasCallStack => String -> a error String "Failed to parse token in cursor" ABC.Done ByteString _ JsonToken String Double r -> JsonToken String Double -> Maybe (JsonToken String Double) forall a. a -> Maybe a Just JsonToken String Double r else Maybe (JsonToken String Double) forall a. Maybe a Nothing