1{-# LANGUAGE TemplateHaskell #-}
2
3singleLine = case () of
4  $x -> ()
5  $(y "something") -> ()
6
7multiline = case () of
8  $( x
9       + y
10   ) -> ()
11  $( y
12       "something"
13   ) -> ()
14