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