Haskell: How to combine two pair of tuple into a single tuple

Question

I have for let\'s say

foo :: (a,b) -> (c,d) -> (a,b,c,d)
foo (a,b) (c,d) = undefined

how should I input in the undefined