line 3.0.1 → 3.1.0

raw patch · 5 files changed

+54/−1 lines, 5 files

Files

• CHANGELOG.md +4/−0
• line.cabal +1/−1
• src/Line/Messaging/Webhook/Types.hs +2/−0
• test/Line/Messaging/Webhook/TypesSpec.hs +5/−0
• test/Line/Messaging/Webhook/TypesSpecHelper.hs +42/−0

@@ -1,3 +1,7 @@+## 3.1.0 (26 May 2017)++* Add support for file message+ ## 3.0.1 (26 Apr 2017)  * Use Text instead of String for Beacon dm

@@ -1,5 +1,5 @@ name:                line-version:             3.0.1+version:             3.1.0 synopsis:            Haskell SDK for the LINE API homepage:            https://github.com/noraesae/line license:             BSD3

@@ -224,6 +224,7 @@                   | ImageEM ID -- ^ Image event message.                   | VideoEM ID -- ^ Video event message.                   | AudioEM ID -- ^ Audio event message.+                  | FileEM ID T.Text Integer -- ^ File event message.                   | LocationEM ID Location -- ^ Location event message.                   | StickerEM ID Sticker -- ^ Sticker event message.                   deriving (Eq, Show)@@ -235,6 +236,7 @@       "image" -> ImageEM <$> v .: "id"       "video" -> VideoEM <$> v .: "id"       "audio" -> AudioEM <$> v .: "id"+      "file" -> FileEM <$> v .: "id" <*> v .: "fileName" <*> (read <$> v .: "fileSize")       "location" -> LocationEM <$> v .: "id" <*> parseJSON (Object v)       "sticker" -> StickerEM <$> v .: "id" <*> parseJSON (Object v)       _ -> fail "EventMessage"

@@ -73,6 +73,11 @@     , ( badAudioMessage, Nothing )     ] +  describe "file message event" $ fromJSONSpec+    [ ( goodFileMessage, replyE MessageEvent (FileEM "325708" "hello.txt" 1234) )+    , ( badFileMessage, Nothing )+    ]+   describe "location message event" $ fromJSONSpec     [ ( goodLocationMessage, replyE MessageEvent (LocationEM "325708" $                                                Location

@@ -190,6 +190,48 @@ ] } |] +goodFileMessage :: BL.ByteString+goodFileMessage = [r|+{ "events": [+{+  "replyToken": "nHuyWiB7yP5Zw52FIkcQobQuGDXCTA",+  "type": "message",+  "timestamp": 1462629479859,+  "source": {+    "type": "user",+    "userId": "U206d25c2ea6bd87c17655609a1c37cb8"+  },+  "message": {+    "id": "325708",+    "type": "file",+    "fileName": "hello.txt",+    "fileSize": "1234"+  }+}+] }+|]++badFileMessage :: BL.ByteString+badFileMessage = [r|+{ "events": [+{+  "replyToken": "nHuyWiB7yP5Zw52FIkcQobQuGDXCTA",+  "type": "message",+  "timestamp": 1462629479859,+  "source": {+    "type": "user",+    "userId": "U206d25c2ea6bd87c17655609a1c37cb8"+  },+  "message": {+    "id": "325708",+    "type": "file'",+    "fileName": "hello.txt",+    "fileSize": "1234"+  }+}+] }+|]+ goodLocationMessage :: BL.ByteString goodLocationMessage = [r| { "events": [