attachmentLocation :: TestTree
attachmentLocation = parseTest "Location attachment" locationVal
                   $ standardMessaging (Just 1519133473383)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.$cAAFSsb24gKln5K6Sb1hshk46ukmJ"
                                     (Just 115715)
                                     msgContent
                                     []
        msgContent = MLocation $ MessageLocation [att]
        att = CallbackLocation (Just "Someone's Location")
                               (Just "<SOME URL USING BING MAPS>")
                               $ CallbackLocationPayload
                                 $ CallbackCoordinates 52.376232 4.838296
attachmentLocation :: TestTree
attachmentLocation = parseTest "Location attachment" locationVal
                   $ standardMessaging (Just 1519133473383)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.$cAAFSsb24gKln5K6Sb1hshk46ukmJ"
                                     (Just 115715)
                                     msgContent
                                     []
        msgContent = MLocation $ MessageLocation [att]
        att = CallbackLocation (Just "Someone's Location")
                               (Just "<SOME URL USING BING MAPS>")
                               $ CallbackLocationPayload
                                 $ CallbackCoordinates 52.376232 4.838296
attachmentLocation = parseTest "Location attachment" locationVal
                   $ standardMessaging (Just 1519133473383)
                                       Nothing
                                       contnt
  where contnt = CMMessage $ Message "mid.$cAAFSsb24gKln5K6Sb1hshk46ukmJ"
                                     (Just 115715)
                                     msgContent
                                     []
        msgContent = MLocation $ MessageLocation [att]
        att = CallbackLocation (Just "Someone's Location")
                               (Just "<SOME URL USING BING MAPS>")
                               $ CallbackLocationPayload
                                 $ CallbackCoordinates 52.376232 4.838296