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