github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Define a Message datatype.

Browse Source
This commit is contained in:
Rob Rix 2017-07-23 14:11:48 -04:00
parent 6358896dc5
commit 29fd11f96f
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Semantic/Task.hs
View File

@ -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