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

Define trace using LiftEffect.

Browse Source
This commit is contained in:
Rob Rix 2018-03-07 11:18:09 -05:00
parent 0d296bd6b1
commit fae0fcd7da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Analysis/Abstract/Tracing.hs
View File

@ -61,4 +61,4 @@ instance ( Corecursive term
analyzeTerm term = getConfiguration (embedSubterm term) >>= trace . point >> eval term
trace :: Member (Tracer trace term value) effects => trace (Configuration (LocationFor value) term value) -> TracingAnalysis trace term value effects ()
trace w = TracingAnalysis (Evaluator (tell w))
trace w = lift (tell w)