messagePairs (Link title body url) = [
    "type" .= ("link" :: T.Text),
    "title" .= title,
    "body" .= body,
    "url" .= url
    ]
messagePairs (Link title body url) = [
    "type" .= ("link" :: T.Text),
    "title" .= title,
    "body" .= body,
    "url" .= url
    ]
messagePairs (Link title body url) = [
    "type" .= ("link" :: T.Text),
    "title" .= title,
    "body" .= body,
    "url" .= url
    ]