Define subterms using mendlerPara.

🔥 that Functor constraint.
github · Mar 19, 2024 · 1d70d13 · 1d70d13
1 parent ad4dba6
commit 1d70d13
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/semantic-analysis/src/Analysis/Syntax.hs b/semantic-analysis/src/Analysis/Syntax.hs
@@ -31,8 +31,8 @@ instance (Ord (sig (Term sig v)), Ord v) => Ord (Term sig v) where
   compare _          _        = GT
 
 
-subterms :: (Ord (sig (Term sig v)), Ord v, Foldable sig, Functor sig) => Term sig v -> Set.Set (Term sig v)
-subterms = paraTerm (Set.singleton . Var) (foldMap (uncurry Set.insert))
+subterms :: (Ord (sig (Term sig v)), Ord v, Foldable sig) => Term sig v -> Set.Set (Term sig v)
+subterms = mendlerParaTerm (Set.singleton . Var) (\ k -> foldMap (uncurry Set.insert . k))
 
 foldTerm :: Functor sig => (v -> r) -> (sig r -> r) -> (Term sig v -> r)
 foldTerm var sig = mendlerTerm var (\ k -> sig . fmap k)