parseUpdate :: Parser StreamingPayload
parseUpdate = do
  pd
  s <- C8.takeTill (== '\n')
  case (decodeStrict' s :: Maybe Status) of
    Nothing -> fail $ "decode error"
    (Just s) -> return $ SUpdate s
parseUpdate :: Parser StreamingPayload
parseUpdate = do
  pd
  s <- C8.takeTill (== '\n')
  case (decodeStrict' s :: Maybe Status) of
    Nothing -> fail $ "decode error"
    (Just s) -> return $ SUpdate s
parseUpdate = do
  pd
  s <- C8.takeTill (== '\n')
  case (decodeStrict' s :: Maybe Status) of
    Nothing -> fail $ "decode error"
    (Just s) -> return $ SUpdate s