Define Sieve and Cosieve interfaces
This commit is contained in:
parent
22da62a6f5
commit
ff82a24001
|
@ -0,0 +1,15 @@
|
||||||
|
module Data.Profunctor.Sieve
|
||||||
|
|
||||||
|
import Data.Profunctor
|
||||||
|
|
||||||
|
%default total
|
||||||
|
|
||||||
|
|
||||||
|
public export
|
||||||
|
interface (Profunctor p, Functor f) => Sieve p f | p where
|
||||||
|
sieve : p a b -> a -> f b
|
||||||
|
|
||||||
|
|
||||||
|
public export
|
||||||
|
interface (Profunctor p, Functor f) => Cosieve p f | p where
|
||||||
|
cosieve : p a b -> f a -> b
|
Loading…
Reference in a new issue