mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
Need this for some reason
This commit is contained in:
parent
87145308cd
commit
0ffb83d22b
@ -1,4 +1,4 @@
|
||||
{-# LANGUAGE DefaultSignatures, UndecidableInstances #-}
|
||||
{-# LANGUAGE DefaultSignatures, UndecidableInstances, MonoLocalBinds #-}
|
||||
module Abstract.FreeVariables where
|
||||
|
||||
import Abstract.Set
|
||||
@ -21,5 +21,7 @@ class FreeVariables term where
|
||||
instance (FreeVariables1 (TermF syntax ann), Functor syntax) => FreeVariables (Term syntax ann) where
|
||||
freeVariables = cata (liftFreeVariables id)
|
||||
|
||||
instance (Foldable syntax) => FreeVariables1 (TermF syntax ann)
|
||||
|
||||
instance (Apply FreeVariables1 fs) => FreeVariables1 (Union fs) where
|
||||
liftFreeVariables f = apply (Proxy :: Proxy FreeVariables1) (liftFreeVariables f)
|
||||
|
Loading…
Reference in New Issue
Block a user