attachmentSticker :: TestTree
attachmentSticker = parseTest "Sticker attachment" stickerVal
                  $ standardMessaging (Just 1486142376165)
                                      Nothing
                                      contnt
  where contnt = CMMessage $ Message "mid.1482142576415:5aaf79ce93"
                                     (Just 31674)
                                     msgContent
                                     []
        msgContent = MSticker $ MessageSticker [att] 369239263222822
        att = StickerAttachment
                $ CallbackStickerPayload "https://scontent.xx.fbcdn.net/v/t39.1997-6/851557_369239266556155_759568595_n.png?_nc_ad=z-m&oh=6db01d9d3eb168d058cbb2d6692af58f&oe=58978D5C"
                                         369239263222822
attachmentSticker :: TestTree
attachmentSticker = parseTest "Sticker attachment" stickerVal
                  $ standardMessaging (Just 1486142376165)
                                      Nothing
                                      contnt
  where contnt = CMMessage $ Message "mid.1482142576415:5aaf79ce93"
                                     (Just 31674)
                                     msgContent
                                     []
        msgContent = MSticker $ MessageSticker [att] 369239263222822
        att = StickerAttachment
                $ CallbackStickerPayload "https://scontent.xx.fbcdn.net/v/t39.1997-6/851557_369239266556155_759568595_n.png?_nc_ad=z-m&oh=6db01d9d3eb168d058cbb2d6692af58f&oe=58978D5C"
                                         369239263222822
attachmentSticker = parseTest "Sticker attachment" stickerVal
                  $ standardMessaging (Just 1486142376165)
                                      Nothing
                                      contnt
  where contnt = CMMessage $ Message "mid.1482142576415:5aaf79ce93"
                                     (Just 31674)
                                     msgContent
                                     []
        msgContent = MSticker $ MessageSticker [att] 369239263222822
        att = StickerAttachment
                $ CallbackStickerPayload "https://scontent.xx.fbcdn.net/v/t39.1997-6/851557_369239266556155_759568595_n.png?_nc_ad=z-m&oh=6db01d9d3eb168d058cbb2d6692af58f&oe=58978D5C"
                                         369239263222822