export bodies of CanShift instances and rename Compose to Map

This commit is contained in:
rhiannon morris 2022-02-27 01:46:31 +01:00
parent d8f869d6df
commit 3ea9db1c82

View file

@ -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