messageBody :: Parser [MessageInner]
messageBody = wrapped (ss "{") (ss "}") $ ss $ many $ choice
  [ MessageField <$> messageField
  , MessageEnum <$> enum
  , NestedMessage <$> message
  , MessageExtend <$> extend ]
messageBody :: Parser [MessageInner]
messageBody = wrapped (ss "{") (ss "}") $ ss $ many $ choice
  [ MessageField <$> messageField
  , MessageEnum <$> enum
  , NestedMessage <$> message
  , MessageExtend <$> extend ]
messageBody = wrapped (ss "{") (ss "}") $ ss $ many $ choice
  [ MessageField <$> messageField
  , MessageEnum <$> enum
  , NestedMessage <$> message
  , MessageExtend <$> extend ]