Fix profunctor record declarations

This commit is contained in:
Kiana Sheibani 2023-03-04 23:56:35 -05:00
parent daf9eaef6e
commit c8dfbb5189
Signed by: toki
GPG key ID: 6CB106C25E86A9F7

View file

@ -44,7 +44,7 @@ Functor f => Profunctor (Kleislimorphism f) where
-- Examples of profunctors
public export
record Star (f : k -> Type) a (b : k) where
record Star {0 k : Type} (f : k -> Type) a (b : k) where
constructor MkStar
applyStar : a -> f b
@ -76,7 +76,7 @@ Functor f => Profunctor (Star f) where
public export
record Costar (f : k -> Type) (a : k) b where
record Costar {0 k : Type} (f : k -> Type) (a : k) b where
constructor MkCostar
applyCostar : f a -> b
@ -101,7 +101,7 @@ Functor f => Profunctor (Costar f) where
public export
record Tagged (a : k) b where
record Tagged {0 k : Type} (a : k) b where
constructor Tag
getTagged : b