messagePairs :: Message -> [A.Pair]
messagePairs (Note title body) = [
    "type" .= ("note" :: T.Text),
    "title" .= title,
    "body" .= body
    ]
messagePairs :: Message -> [A.Pair]
messagePairs (Note title body) = [
    "type" .= ("note" :: T.Text),
    "title" .= title,
    "body" .= body
    ]
messagePairs (Note title body) = [
    "type" .= ("note" :: T.Text),
    "title" .= title,
    "body" .= body
    ]