hw-json-simple-cursor-0.1.0.0: src/HaskellWorks/Data/Json/Simple/Cursor/Internal/ToIbBp.hs

module HaskellWorks.Data.Json.Simple.Cursor.Internal.ToIbBp where

import qualified Data.ByteString                                    as BS
import qualified HaskellWorks.Data.Json.Simple.Cursor.Internal.IbBp as Z
import qualified HaskellWorks.Data.Json.Simple.Cursor.SemiIndex     as J

class ToIbBp a where
  toIbBp :: a -> Z.IbBp

instance ToIbBp BS.ByteString where
  toIbBp bs = Z.IbBp ib bp
    where J.SemiIndex _ ib bp = J.buildSemiIndex bs