From ae4a69415050b61f4488255dad0b1c3d045e6de5 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 26 Jun 2011 21:07:41 +0200 Subject: Express >< operator more elegant --- src/Transformable.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Transformable.hs b/src/Transformable.hs index 335b477..a99491d 100644 --- a/src/Transformable.hs +++ b/src/Transformable.hs @@ -36,8 +36,8 @@ instance Transformable TransformMap where transform = (*.*) (><) :: (Transform t, Transformable a) => t -> a -> a -t >< a = transform (toMap t) a +(><) = transform . toMap (>:<) :: (ReversibleTransform t, Transformable a) => t -> a -> a -t >:< a = transform (toMap' t) a +(>:<) = transform . toMap' -- cgit v1.2.3