{-# LANGUAGE ImportQualifiedPost #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Data.ByteString.Lazy.ToolsYj (
	splitAt' ) where

import Data.Int
import Data.ByteString.Lazy qualified as LBS

splitAt' :: Int64 -> LBS.ByteString -> Maybe (LBS.ByteString, LBS.ByteString)
splitAt' :: Int64 -> ByteString -> Maybe (ByteString, ByteString)
splitAt' Int64
n ByteString
bs
	| ByteString -> Int64
LBS.length ByteString
bs Int64 -> Int64 -> Bool
forall a. Ord a => a -> a -> Bool
< Int64
n = Maybe (ByteString, ByteString)
forall a. Maybe a
Nothing
	| Bool
otherwise = (ByteString, ByteString) -> Maybe (ByteString, ByteString)
forall a. a -> Maybe a
Just ((ByteString, ByteString) -> Maybe (ByteString, ByteString))
-> (ByteString, ByteString) -> Maybe (ByteString, ByteString)
forall a b. (a -> b) -> a -> b
$ Int64 -> ByteString -> (ByteString, ByteString)
LBS.splitAt Int64
n ByteString
bs