summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-06-26 21:07:41 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-06-26 21:07:41 +0200
commitae4a69415050b61f4488255dad0b1c3d045e6de5 (patch)
treeed74076ece757a5fc1415261b51ab1a69f28d3d8 /src
parentcc53496bab9ad2bbfc3fb2868cd10fa46f612e69 (diff)
downloadhtanks-ae4a69415050b61f4488255dad0b1c3d045e6de5.tar
htanks-ae4a69415050b61f4488255dad0b1c3d045e6de5.zip
Express >< operator more elegant
Diffstat (limited to 'src')
-rw-r--r--src/Transformable.hs4
1 files changed, 2 insertions, 2 deletions
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'