-- | Runs a 'B.Put' monad and sends its result
sendPut :: (MonadIO m) => BinaryCom -> B.Put -> m ()
sendPut (BinaryCom _ hW _) putAction = liftIO $
  L.hPut hW $ B.runPut putAction
sendPut :: (MonadIO m) => BinaryCom -> B.Put -> m ()
sendPut (BinaryCom _ hW _) putAction = liftIO $
  L.hPut hW $ B.runPut putAction
sendPut (BinaryCom _ hW _) putAction = liftIO $
  L.hPut hW $ B.runPut putAction