binaryComBS :: (MonadIO m) =>
               L.ByteString -- ^ For reading
            -> Handle       -- ^ For writing
            -> m BinaryCom  -- ^ New 'BinaryCom'
binaryComBS inp hW = liftIO $ do
  ref <- newIORef inp
  return $ BinaryCom ref hW True

-- | Sends a serializable value through a 'BinaryCom'
binaryComBS :: (MonadIO m) =>
               L.ByteString -- ^ For reading
            -> Handle       -- ^ For writing
            -> m BinaryCom
binaryComBS inp hW = liftIO $ do
  ref <- newIORef inp
  return $ BinaryCom ref hW True

-- | Sends a serializable value through a 'BinaryCom'
binaryComBS inp hW = liftIO $ do
  ref <- newIORef inp
  return $ BinaryCom ref hW True

-- | Sends a serializable value through a 'BinaryCom'