{-# LANGUAGE TemplateHaskell #-}

foo = do
  $( bar
   )
    baz

foo = do
  $$( bar
    )
    baz

foo = do
  do (+ 1)
    2

foo = do
  do
    (+ 1)
   2

foo = do
  case () of () -> (+ 1)
    2

foo = do
  case () of
    () -> (+ 1)
   2

foo = do
  \case 2 -> 3
    2

foo = do
  \case
    2 -> 3
   2