fbmessenger-api 0.1.0.3 → 0.1.1.0
raw patch · 8 files changed
+9/−10 lines, 8 files
Files
- example-app/example.hs +2/−3
- fbmessenger-api.cabal +1/−1
- src/Web/FBMessenger/API/Bot/WebhookAPI.hs +1/−1
- test-files/wsAuthRequest.json +1/−1
- test-files/wsDeliveryRequest.json +1/−1
- test-files/wsPostbackRequest.json +1/−1
- test-files/wsStructuredMessageRequest.json +1/−1
- test-files/wsTextMessageRequest.json +1/−1
example-app/example.hs view
@@ -3,8 +3,7 @@ {-# LANGUAGE TypeOperators #-} {-# LANGUAGE OverloadedStrings #-} -import Control.Concurrent (forkIO, threadDelay)-import Control.Monad (when, forever)+import Control.Monad (when) import Control.Monad.IO.Class (liftIO) import Control.Monad.Trans.Except (ExceptT) import qualified Data.ByteString.Lazy.Char8 as C@@ -84,7 +83,7 @@ return (T.pack logMsg) app :: String -> String -> Application-app verifyToken pageToke = serve webHookAPI $ server verifyToken pageToken +app verifyToken pageToken = serve webHookAPI $ server verifyToken pageToken main :: IO () main = do
fbmessenger-api.cabal view
@@ -1,5 +1,5 @@ name: fbmessenger-api-version: 0.1.0.3+version: 0.1.1.0 synopsis: High-level bindings to Facebook Messenger Platform API description: Please see README.md homepage: https://github.com/mseri/fbmessenger-api-hs#readme
src/Web/FBMessenger/API/Bot/WebhookAPI.hs view
@@ -41,7 +41,7 @@ data RemoteEvent = RemoteEvent- { evt_id :: Int -- ^ Page ID of page + { evt_id :: Text -- ^ Page ID of page , evt_time :: Int -- ^ Time of update , evt_messaging :: [EventMessage] -- ^ Array containing objects related to messaging } deriving (Show, Eq, Generic)
test-files/wsAuthRequest.json view
@@ -2,7 +2,7 @@ "object":"page", "entry":[ {- "id":111111,+ "id":"111111", "time":12341, "messaging":[ {
test-files/wsDeliveryRequest.json view
@@ -2,7 +2,7 @@ "object":"page", "entry":[ {- "id":111111,+ "id":"111111", "time":1458668856451, "messaging":[ {
test-files/wsPostbackRequest.json view
@@ -2,7 +2,7 @@ "object":"page", "entry":[ {- "id":111111,+ "id":"111111", "time":1458692752478, "messaging":[ {
test-files/wsStructuredMessageRequest.json view
@@ -2,7 +2,7 @@ "object":"page", "entry":[ {- "id":111111,+ "id":"111111", "time":1458696618911, "messaging":[ {
test-files/wsTextMessageRequest.json view
@@ -2,7 +2,7 @@ "object":"page", "entry":[ {- "id":111111,+ "id":"111111", "time":1457764198246, "messaging":[ {