1
1
mirror of https://github.com/github/semantic.git synced 2024-12-26 00:12:29 +03:00

Define 'analyzeTerm' for 'CachingAnalysis'.

This commit is contained in:
Rob Rix 2018-03-06 16:46:38 -05:00
parent 76c69dce45
commit ca32bdc551

View File

@ -80,7 +80,7 @@ instance ( Corecursive t
, Semigroup (Cell (LocationFor v) v)
)
=> MonadAnalysis t v (CachingAnalysis t v) where
evaluateTerm = foldSubterms $ \e -> do
analyzeTerm e = do
c <- getConfiguration (embedSubterm e)
-- Convergence here is predicated upon an Eq instance, not α-equivalence
cache <- converge (\ prevCache -> do