parseDelete :: Parser StreamingPayload
parseDelete = do
  pd
  i <- StatusId <$> many C8.digit
  return $ SDelete i
parseDelete :: Parser StreamingPayload
parseDelete = do
  pd
  i <- StatusId <$> many C8.digit
  return $ SDelete i
parseDelete = do
  pd
  i <- StatusId <$> many C8.digit
  return $ SDelete i