extend :: Parser Extend
extend = Extend <$> (ss "extend" *> ss userType) <*> ss messageBody
extend :: Parser Extend
extend = Extend <$> (ss "extend" *> ss userType) <*> ss messageBody
extend = Extend <$> (ss "extend" *> ss userType) <*> ss messageBody