message :: Parser Message
message = ss "message" *> (Message <$> ss identifier <*> ss messageBody)
message :: Parser Message
message = ss "message" *> (Message <$> ss identifier <*> ss messageBody)
message = ss "message" *> (Message <$> ss identifier <*> ss messageBody)