github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-21 05:41:54 +03:00
Code Issues Projects Releases Wiki Activity

Define a record selector for message content.

Browse Source
This commit is contained in:
Rob Rix 2017-07-21 12:10:34 -04:00
parent 86169b6eb6
commit 8b4db1d3e8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Semantic/Task.hs
View File

@ -49,10 +49,10 @@ type Task = Freer TaskF
-- | A log message at a specific level. -- | A log message at a specific level.
data Message data Message
= Error ByteString = Error { messageContent :: ByteString }
| Warning ByteString | Warning { messageContent :: ByteString }
| Info ByteString | Info { messageContent :: ByteString }
| Debug ByteString | Debug { messageContent :: ByteString }
deriving (Eq, Show) deriving (Eq, Show)
formatMessage :: Message -> ByteString formatMessage :: Message -> ByteString