diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-06-26 21:07:41 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-06-26 21:07:41 +0200 |
| commit | ae4a69415050b61f4488255dad0b1c3d045e6de5 (patch) | |
| tree | ed74076ece757a5fc1415261b51ab1a69f28d3d8 | |
| parent | cc53496bab9ad2bbfc3fb2868cd10fa46f612e69 (diff) | |
| download | htanks-ae4a69415050b61f4488255dad0b1c3d045e6de5.tar htanks-ae4a69415050b61f4488255dad0b1c3d045e6de5.zip | |
Express >< operator more elegant
| -rw-r--r-- | src/Transformable.hs | 4 |
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' |