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

Add traceError

Browse Source
This commit is contained in:
Rick Winfrey 2018-08-06 14:43:44 -07:00
parent 8a66ce5509
commit aed8dc607d
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/Graph.hs
View File

@ -317,3 +317,6 @@ resumingTypeError = runTypesWith (\ (BaseError context err) -> trace ("TypeError
prettyShow :: Show a => a -> String prettyShow :: Show a => a -> String
prettyShow = hscolour TTY defaultColourPrefs False False "" False . ppShow prettyShow = hscolour TTY defaultColourPrefs False False "" False . ppShow
traceError :: (Member Trace effects, Effectful m, Show a) => String -> a -> ErrorContext -> m effects ()
traceError prefix err context = trace $ prefix <> ": " <> prettyShow err <> " " <> prettyShow context