{-# LANGUAGE TemplateHaskell #-}

singleLine = case () of
  $x -> ()
  $(y "something") -> ()

multiline = case () of
  $(x
    + y) -> ()
  $(y
      "something") -> ()