diff --git a/src/Data/Abstract/FreeVariables.hs b/src/Data/Abstract/FreeVariables.hs index 04a8a91dd..fe17c6774 100644 --- a/src/Data/Abstract/FreeVariables.hs +++ b/src/Data/Abstract/FreeVariables.hs @@ -29,6 +29,7 @@ class FreeVariables1 syntax where freeVariables1 :: (FreeVariables1 t, FreeVariables a) => t a -> Set Name freeVariables1 = liftFreeVariables freeVariables + instance (FreeVariables1 syntax, Functor syntax) => FreeVariables (Term syntax ann) where freeVariables = cata (liftFreeVariables id)