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