succinct-0.0.0.1: components/succinct-xml/src/Data/Succinct/Xml/Internal/ByteString.hs

module Data.Succinct.Xml.Internal.ByteString
  ( repartitionMod8
  ) where

import Data.ByteString (ByteString)

import qualified Data.ByteString as BS

repartitionMod8 :: ByteString -> ByteString -> (ByteString, ByteString)
repartitionMod8 aBS bBS = (BS.take cLen abBS, BS.drop cLen abBS)
  where abBS = BS.concat [aBS, bBS]
        abLen = BS.length abBS
        cLen = (abLen `div` 8) * 8
{-# INLINE repartitionMod8 #-}