You can just write something like

    foo x = case x of
              pattern1 -> ...