mirror of
https://github.com/github/semantic.git
synced 2024-12-25 07:55:12 +03:00
Add some FIXMEs about Traversable1 & GTraversable1.
This commit is contained in:
parent
dbe5eeec9f
commit
73d69bdd15
@ -95,6 +95,7 @@ instance GFoldable1 c U1 where
|
||||
gfoldMap1 _ _ = mempty
|
||||
|
||||
|
||||
-- FIXME: move Traversable1 into semantic-ast.
|
||||
class Traversable1 c t where
|
||||
-- | Map annotations and subterms of kind @* -> *@ into an 'Applicative' context.
|
||||
traverse1
|
||||
@ -115,6 +116,7 @@ foldMap1 :: forall c t b a . (Traversable1 c t, Monoid b) => (a -> b) -> (forall
|
||||
foldMap1 f g = getConst . traverse1 @c (Const . f) (Const . g)
|
||||
|
||||
|
||||
-- FIXME: move GTraversable1 into semantic-ast.
|
||||
class GTraversable1 c t where
|
||||
-- | Generically map annotations and subterms of kind @* -> *@ into an 'Applicative' context.
|
||||
gtraverse1
|
||||
|
Loading…
Reference in New Issue
Block a user