From 29fd11f96f54ce9217725e6c884846cf8ae6e237 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Sun, 23 Jul 2017 14:11:48 -0400
Subject: [PATCH] Define a Message datatype.

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

diff --git a/src/Semantic/Task.hs b/src/Semantic/Task.hs
index 5d985c497..d6aa6a703 100644
--- a/src/Semantic/Task.hs
+++ b/src/Semantic/Task.hs
@@ -65,6 +65,9 @@ data TaskF output where
 type Task = Freer TaskF
 
 -- | A log message at a specific level.
+data Message = Message Time.UTCTime Level String
+  deriving (Eq, Show)
+
 data Level
   = Error
   | Warning