Haskell: как отобразить кортеж?

В Haskell я могу легко отобразить список:

map (\x -> 2*x) [1,2]

дает мне [ 2,4]. Есть ли какая-нибудь функция "mapTuple", которая бы так работала?

mapTuple (\x -> 2*x) (1,2)

с результатом (2,4).