suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a couple more functions to the Utils module

Browse Source
This commit is contained in:
Neil Brown 2009-02-09 22:25:12 +00:00
parent 4b44da8008
commit 0e95d5d15e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/Utils.hs
View File

@ -125,6 +125,12 @@ concatPair a b = (fst a ++ fst b, snd a ++ snd b)
transformPair :: (x -> a) -> (y -> b) -> (x,y) -> (a,b)
transformPair f g (x,y) = (f x, g y)
mapFst :: (a -> b) -> [(a, c)] -> [(b, c)]
mapFst f = map (transformPair f id)
mapSnd :: (a -> b) -> [(c, a)] -> [(c, b)]
mapSnd f = map (transformPair id f)
-- | Maps three functions over members of a triple
transformTriple :: (x -> a) -> (y -> b) -> (z -> c) -> (x,y,z) -> (a,b,c)
transformTriple f g h (x,y,z) = (f x, g y, h z)