aboutsummaryrefslogtreecommitdiffstats
path: root/src/Message.hs
diff options
context:
space:
mode:
authorTeddy Wing2017-08-17 00:35:24 +0200
committerTeddy Wing2017-08-17 00:35:24 +0200
commitf4028e21f8a138961927b8e794b349f209b00dc7 (patch)
treef1099c1cd6ebd511a0a6d52c99c0545238be1a21 /src/Message.hs
parente9278eb0a1c0126e6903f333ed4efa5dd00ff5cc (diff)
downloadsorbot-f4028e21f8a138961927b8e794b349f209b00dc7.tar.bz2
Change `Plugin` and `Message` from `String` to `Data.Text`
Use the `Data.Text` type instead of `String` in most of the places we use it in `Plugin` and `Message`. This allows us to more easily pass data between the IRC package. No more kludgy `pack`s and `unpack`s in our IRC message handler. The one thing we couldn't convert was our regex. From what I understand (https://stackoverflow.com/questions/14922579/haskell-regular-expressions-and-data-text#14922626), the regex library I'm using doesn't support `Data.Text`, so use `String`s for that instead.
Diffstat (limited to 'src/Message.hs')
-rw-r--r--src/Message.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Message.hs b/src/Message.hs
index 6a95638..db582e9 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -4,12 +4,14 @@ module Message
, Nick
) where
-type Channel = String
+import qualified Data.Text as T
-type Nick = String
+type Channel = T.Text
+
+type Nick = T.Text
data Message = Message
- { text :: String
+ { text :: T.Text
, channel :: Channel
, nick :: Nick
}