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 export CanShift Var where i // by = shift by i
namespace CanShift namespace CanShift
export public export
[Compose] (Functor f, CanShift tm) => CanShift (f . tm) where [Map] (Functor f, CanShift tm) => CanShift (f . tm) where
x // by = map (// by) x x // by = map (// by) x
export public export
[Const] CanShift (\_ => a) where x // _ = x [Const] CanShift (\_ => a) where x // _ = x