Message: Add a function to get the `text` field as a string

Clean up some of the calls to get the `text` field by adding a function
that abstracts the call to `Data.Text(unpack)`.

1 files changed, 5 insertions, 0 deletions

diff --git a/src/Message.hs b/src/Message.hs
index db582e9..a0cadc3 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -2,6 +2,8 @@ module Message
     ( Message(..)
     , Channel
     , Nick
+
+    , textStr
     ) where
 
 import qualified Data.Text as T
@@ -15,3 +17,6 @@ data Message = Message
     , channel :: Channel
     , nick    :: Nick
     }
+
+textStr :: Message -> String
+textStr = T.unpack . text