neocturne/htanks
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Express >< operator more elegant

Browse source
This commit is contained in:
Matthias Schiffer 2011-06-26 21:07:41 +02:00
parent cc53496bab
commit ae4a694150
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Transformable.hs
View file

@ -36,8 +36,8 @@ instance Transformable TransformMap where
transform = (*.*) transform = (*.*)
(><) :: (Transform t, Transformable a) => t -> a -> a (><) :: (Transform t, Transformable a) => t -> a -> a
t >< a = transform (toMap t) a (><) = transform . toMap
(>:<) :: (ReversibleTransform t, Transformable a) => t -> a -> a (>:<) :: (ReversibleTransform t, Transformable a) => t -> a -> a
t >:< a = transform (toMap' t) a (>:<) = transform . toMap'