succinct-0.0.0.1: components/succinct-json-examples/src/Example3.hs

{-# LANGUAGE OverloadedStrings #-}

{-# OPTIONS_GHC -fno-warn-unused-matches     #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing     #-}
{-# OPTIONS_GHC -fno-warn-unused-local-binds #-}

module Example3 where

import Control.Monad

import qualified Data.ByteString                         as BS
import qualified Data.Succinct.Json.Standard.Cursor.Fast as JCF
import qualified HaskellWorks.Data.TreeCursor            as TC

example :: IO ()
example = do
  let fc = TC.firstChild
  let ns = TC.nextSibling
  let jsonBs  = "[null, {\"field\": 1}]" :: BS.ByteString
  let ibip    = JCF.simdToIbBp jsonBs
  let cursor  = JCF.fromBsIbBp jsonBs ibip
  let _ = fc cursor
  let _ = (fc >=> ns) cursor
  return ()