line 3.0.0 → 3.0.1

raw patch · 3 files changed

+9/−5 lines, 3 files

Files

CHANGELOG.md +4/−0
line.cabal +1/−1
src/Line/Messaging/Webhook/Types.hs +4/−4

CHANGELOG.md view

@@ -1,3 +1,7 @@+## 3.0.1 (26 Apr 2017)++* Use Text instead of String for Beacon dm+ ## 3.0.0 (26 Apr 2017)  * Add type and dm support for Beacon event

line.cabal view

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

src/Line/Messaging/Webhook/Types.hs view

@@ -241,9 +241,9 @@   parseJSON _ = fail "IncommingMessage"  -- | Represent beacon data.-data BeaconData = BeaconEnter ID (Maybe String)-                | BeaconLeave ID (Maybe String)-                | BeaconBanner ID (Maybe String)+data BeaconData = BeaconEnter ID (Maybe T.Text)+                | BeaconLeave ID (Maybe T.Text)+                | BeaconBanner ID (Maybe T.Text)                 deriving (Eq, Show)  @@ -254,7 +254,7 @@ getHWID (BeaconBanner hwid _) = hwid  -- |  Get device message from the beacon, if exists.-getDeviceMessage :: BeaconData -> Maybe String+getDeviceMessage :: BeaconData -> Maybe T.Text getDeviceMessage (BeaconEnter _ dm) = dm getDeviceMessage (BeaconLeave _ dm) = dm getDeviceMessage (BeaconBanner _ dm) = dm