mirror of
https://github.com/github/semantic.git
synced 2024-12-23 06:41:45 +03:00
Define a Listable2 instance over Listable1 f => FreeF f.
This commit is contained in:
parent
378acc4fc9
commit
b63dab4641
@ -82,3 +82,6 @@ instance Listable1 f => Listable2 (CofreeF f) where
|
||||
instance Listable1 f => Listable1 (Cofree f) where
|
||||
liftTiers annotationTiers = go
|
||||
where go = liftCons1 (liftTiers2 annotationTiers go) cofree
|
||||
|
||||
instance Listable1 f => Listable2 (FreeF f) where
|
||||
liftTiers2 pureTiers recurTiers = liftCons1 pureTiers Pure \/ liftCons1 (liftTiers recurTiers) Free
|
||||
|
Loading…
Reference in New Issue
Block a user