mirror of
https://github.com/github/semantic.git
synced 2024-12-23 14:54:16 +03:00
Add an evaluateModule method to MonadAnalysis.
This commit is contained in:
parent
9fa05c9b61
commit
34387b02e0
@ -29,6 +29,10 @@ class MonadEvaluator m => MonadAnalysis m where
|
||||
default evaluateTerm :: Recursive (TermFor m) => TermFor m -> m (ValueFor m)
|
||||
evaluateTerm = foldSubterms analyzeTerm
|
||||
|
||||
evaluateModule :: TermFor m -> m (ValueFor m)
|
||||
default evaluateModule :: Recursive (TermFor m) => TermFor m -> m (ValueFor m)
|
||||
evaluateModule = evaluateTerm
|
||||
|
||||
delegateAnalyzeTerm :: ( TermFor (t m) ~ TermFor m
|
||||
, ValueFor (t m) ~ ValueFor m
|
||||
, Functor (Base (TermFor (t m)))
|
||||
|
Loading…
Reference in New Issue
Block a user