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

🔥 the commented-out evTell.

Browse Source
This commit is contained in:
Rob Rix 2018-03-06 17:27:06 -05:00
parent 68b7ffc612
commit 95510010ba
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -59,22 +59,6 @@ evaluateReach :: forall v term
evaluateReach = run @(TracingEffects Set term v) . runEvaluator . runTracingAnalysis . evaluateTerm
-- | Small-step evaluation which records every visited configuration.
-- evTell :: forall g t m v
-- . ( Monoid (g (Configuration (LocationFor v) t v))
-- , Pointed g
-- , MonadEvaluator t v m
-- )
-- => (((v -> m v) -> t -> m v) -> (v -> m v) -> t -> m v)
-- -> ((v -> m v) -> t -> m v)
-- -> (v -> m v) -> t -> m v
-- evTell ev0 ev' yield e = do
-- env <- askEnv
-- store <- getStore
-- roots <- askRoots
-- tell (point (Configuration e roots env store) :: g (Configuration (LocationFor v) t v))
-- ev0 ev' yield e
newtype TracingAnalysis trace term value a = TracingAnalysis { runTracingAnalysis :: Evaluator (TracingEffects trace term value) term value a }
deriving (Applicative, Functor, Monad, MonadFail)