export bodies of CanShift instances and rename Compose to Map
This commit is contained in:
parent
d8f869d6df
commit
3ea9db1c82
1 changed files with 3 additions and 3 deletions
|
@ -207,9 +207,9 @@ interface CanShift f where
|
|||
export CanShift Var where i // by = shift by i
|
||||
|
||||
namespace CanShift
|
||||
export
|
||||
[Compose] (Functor f, CanShift tm) => CanShift (f . tm) where
|
||||
public export
|
||||
[Map] (Functor f, CanShift tm) => CanShift (f . tm) where
|
||||
x // by = map (// by) x
|
||||
|
||||
export
|
||||
public export
|
||||
[Const] CanShift (\_ => a) where x // _ = x
|
||||
|
|
Loading…
Reference in a new issue