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

Break the dependency of MonadAnalysis on MonadFunction.

Browse Source
This commit is contained in:
Rob Rix 2018-03-01 15:00:26 -05:00
parent f8fea56c6f
commit 8f446cbd60
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Abstract/Evaluatable.hs
View File

@ -78,14 +78,13 @@ class Monad m => MonadAnalysis term value m where
evaluateTerm :: ( AbstractValue value evaluateTerm :: ( AbstractValue value
, FreeVariables term , FreeVariables term
, MonadAddressable (LocationFor value) value m , MonadAddressable (LocationFor value) value m
, MonadFunction term value m
, Ord (LocationFor value) , Ord (LocationFor value)
, Semigroup (Cell (LocationFor value) value) , Semigroup (Cell (LocationFor value) value)
) )
=> term => term
-> m value -> m value
instance (Recursive t, Evaluatable (Base t)) => MonadAnalysis t v (Evaluator es t v) where instance (Recursive t, Evaluatable (Base t), MonadFunction t v (Evaluator es t v)) => MonadAnalysis t v (Evaluator es t v) where
evaluateTerm = foldSubterms eval evaluateTerm = foldSubterms eval
-- FIXME: this should live in Control.Abstract.Function once it doesn’t need to reference Evaluatable. -- FIXME: this should live in Control.Abstract.Function once it doesn’t need to reference Evaluatable.