Fix documentation headers

This commit is contained in:
Kiana Sheibani 2023-03-08 15:05:28 -05:00
parent 7ff2746ab4
commit 55061adc1b
Signed by: toki
GPG key ID: 6CB106C25E86A9F7
5 changed files with 10 additions and 5 deletions

View file

@ -26,7 +26,7 @@ interface Profunctor p => Closed p where
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- Implementations for existing types -- Implementations
------------------------------------------------------------------------------ ------------------------------------------------------------------------------

View file

@ -80,7 +80,7 @@ unright = costrongr {ten=Either}
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- Implementations for existing types -- Implementations
------------------------------------------------------------------------------ ------------------------------------------------------------------------------

View file

@ -34,7 +34,7 @@ interface (Traversing p, Closed p) => Mapping p where
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- Implementations for existing types -- Implementations
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
@ -53,7 +53,7 @@ export
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- Implementations for existing types -- CofreeMapping
------------------------------------------------------------------------------ ------------------------------------------------------------------------------

View file

@ -90,7 +90,7 @@ strong f = dimap dup (uncurry $ flip f) . first
------------------------------------------------------------------------------ ------------------------------------------------------------------------------
-- Implementations for existing types -- Implementations
------------------------------------------------------------------------------ ------------------------------------------------------------------------------

View file

@ -85,6 +85,11 @@ interface (Strong p, Choice p) => Traversing p where
wander f = dimap (\s => MkBaz $ \afb => f afb s) sold . traverse' wander f = dimap (\s => MkBaz $ \afb => f afb s) sold . traverse'
------------------------------------------------------------------------------
-- Implementations
------------------------------------------------------------------------------
export export
Traversing Morphism where Traversing Morphism where
traverse' (Mor f) = Mor (map f) traverse' (Mor f) = Mor (map f)