flushAfter :: (MonadIO m) => BinaryCom -> (BinaryCom -> m ()) -> m ()
flushAfter b@(BinaryCom ref hW _) cont = do
  cont $ BinaryCom ref hW False
  flush b
flushAfter :: (MonadIO m) => BinaryCom -> (BinaryCom -> m ()) -> m ()
flushAfter b@(BinaryCom ref hW _) cont = do
  cont $ BinaryCom ref hW False
  flush b
flushAfter b@(BinaryCom ref hW _) cont = do
  cont $ BinaryCom ref hW False
  flush b