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