github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-30 02:14:20 +03:00
Code Issues Projects Releases Wiki Activity

Pass the colourization flag to formatMessage.

Browse Source
This commit is contained in:
Rob Rix 2017-07-21 15:48:46 -04:00
parent 7d6aa01c93
commit 22d81403f0
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/Semantic/Task.hs
View File

@ -70,12 +70,12 @@ data Message
| Debug { messageContent :: String }
deriving (Eq, Show)
-- | Format a 'Message'.
formatMessage :: Message -> String
formatMessage (Error s) = "error: " <> s <> "\n"
formatMessage (Warning s) = "warning: " <> s <> "\n"
formatMessage (Info s) = "info: " <> s <> "\n"
formatMessage (Debug s) = "debug: " <> s <> "\n"
-- | Format a 'Message', optionally colourized.
formatMessage :: Bool -> Message -> String
formatMessage _ (Error s) = "error: " <> s <> "\n"
formatMessage _ (Warning s) = "warning: " <> s <> "\n"
formatMessage _ (Info s) = "info: " <> s <> "\n"
formatMessage _ (Debug s) = "debug: " <> s <> "\n"
-- | A function to compute the 'Diff' for a pair of 'Term's with arbitrary syntax functor & annotation types.
type Differ f a = Both (Term f a) -> Diff f a
@ -184,7 +184,7 @@ runTaskWithOptions options task = do
message <- atomically (readTMQueue queue)
case message of
Just message -> do
hPutStr stderr (formatMessage message)
hPutStr stderr (formatMessage (fromMaybe True (optionsColour options)) message)
logSink options queue
_ -> pure ()