diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -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
diff --git a/line.cabal b/line.cabal
--- a/line.cabal
+++ b/line.cabal
@@ -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
diff --git a/src/Line/Messaging/Webhook/Types.hs b/src/Line/Messaging/Webhook/Types.hs
--- a/src/Line/Messaging/Webhook/Types.hs
+++ b/src/Line/Messaging/Webhook/Types.hs
@@ -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