{-# LANGUAGE BangPatterns #-}

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

module Example2 where

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

example :: IO ()
example :: IO ()
example = do
  !ByteString
jsonBs <- FilePath -> IO ByteString
BS.mmap FilePath
"corpus/bench/hospitalisation.json"
  let !ibip :: IbBp
ibip = ByteString -> IbBp
JCF.simdToIbBp ByteString
jsonBs
  let !c :: Cursor
c    = ByteString -> IbBp -> Cursor
JCF.fromBsIbBp ByteString
jsonBs IbBp
ibip
  forall (m :: * -> *) a. Monad m => a -> m a
return ()