binaryCom2H :: (MonadIO m) =>
               Handle      -- ^ For reading
            -> Handle      -- ^ For writing
            -> m BinaryCom -- ^ New 'BinaryCom'
binaryCom2H hR hW = do
  inp <- liftIO $ L.hGetContents hR
  binaryComBS inp hW

-- | Creates a 'BinaryCom' from a lazy 'L.ByteString' (for reading) and a 'Handle' (for writing)
binaryCom2H :: (MonadIO m) =>
               Handle      -- ^ For reading
            -> Handle      -- ^ For writing
            -> m BinaryCom
binaryCom2H hR hW = do
  inp <- liftIO $ L.hGetContents hR
  binaryComBS inp hW

-- | Creates a 'BinaryCom' from a lazy 'L.ByteString' (for reading) and a 'Handle' (for writing)
binaryCom2H hR hW = do
  inp <- liftIO $ L.hGetContents hR
  binaryComBS inp hW

-- | Creates a 'BinaryCom' from a lazy 'L.ByteString' (for reading) and a 'Handle' (for writing)