1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00

🔥 some redundant constraints.

This commit is contained in:
Rob Rix 2018-03-07 18:36:16 -05:00
parent 6ed41a911c
commit 6b9ae3eb73

View File

@ -61,14 +61,12 @@ subterms term = term `cons` para (foldMap (uncurry cons)) term
instance ( Corecursive (TermFor m)
, Evaluatable (Base (TermFor m))
, LiftEffect m
, Member (State (Dead (TermFor m))) (Effects m)
, MonadAnalysis m
, MonadEvaluator m
, Ord (TermFor m)
, Recursive (TermFor m)
, Semigroup (CellFor (ValueFor m))
)
=> MonadAnalysis (DeadCodeAnalysis m) where
analyzeTerm term = do