From 40f8f12e6a749ebd5c87df5675bf4b7c2118ccef Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Thu, 17 Aug 2017 00:46:35 +0200
Subject: 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)`.
---
 src/Message.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Message.hs')

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
-- 
cgit v1.2.3