Симметричные случаи сопоставления с образцом Haskell

Предположим, у меня есть выражение haskell, например:

foo (Nothing, Just a) = bar a
foo (Just a, Nothing) = bar a

Есть ли какой-либо синтаксис haskell чтобы свернуть эти случаи, чтобы я мог сопоставить любой шаблон и указать bar a в качестве ответа для обоих? Или это настолько лаконично, насколько я могу это понять?