module Program.Mighty.ByteString where

import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as BS

-- | Converting showalbe data to 'ByteString'.
bshow :: Show a => a -> ByteString
bshow :: a -> ByteString
bshow = String -> ByteString
BS.pack (String -> ByteString) -> (a -> String) -> a -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a -> String
forall a. Show a => a -> String
show

infixr 5 +++

-- | Appending two 'ByteString'.
(+++) :: ByteString -> ByteString -> ByteString
+++ :: ByteString -> ByteString -> ByteString
(+++) = ByteString -> ByteString -> ByteString
BS.append