From 8b4db1d3e84a173886cae264bfd0845bdbc38f89 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 21 Jul 2017 12:10:34 -0400
Subject: [PATCH] Define a record selector for message content.

---
 src/Semantic/Task.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 361ef35c3..4cab9bd10 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -49,10 +49,10 @@ type Task = Freer TaskF
 
 -- | A log message at a specific level.
 data Message
-  = Error ByteString
-  | Warning ByteString
-  | Info ByteString
-  | Debug ByteString
+  = Error { messageContent :: ByteString }
+  | Warning { messageContent :: ByteString }
+  | Info { messageContent :: ByteString }
+  | Debug { messageContent :: ByteString }
   deriving (Eq, Show)
 
 formatMessage :: Message -> ByteString