textCallbackQR :: TestTree
textCallbackQR = parseTest "Text with QR" textQRVal
               $ standardMessaging (Just 1485785260154)
                                   Nothing
                                   contnt
  where contnt = CMMessage $ Message "mid.1483715260354:77ac33da15"
                                     (Just 8668)
                                     msgContent
                                     []
        msgContent = MText $ MessageText "CLICK HERE" (Just $ CallbackQuickReply "some_payload")
textCallbackQR :: TestTree
textCallbackQR = parseTest "Text with QR" textQRVal
               $ standardMessaging (Just 1485785260154)
                                   Nothing
                                   contnt
  where contnt = CMMessage $ Message "mid.1483715260354:77ac33da15"
                                     (Just 8668)
                                     msgContent
                                     []
        msgContent = MText $ MessageText "CLICK HERE" (Just $ CallbackQuickReply "some_payload")
textCallbackQR = parseTest "Text with QR" textQRVal
               $ standardMessaging (Just 1485785260154)
                                   Nothing
                                   contnt
  where contnt = CMMessage $ Message "mid.1483715260354:77ac33da15"
                                     (Just 8668)
                                     msgContent
                                     []
        msgContent = MText $ MessageText "CLICK HERE" (Just $ CallbackQuickReply "some_payload")