fourmolu-0.4.0.0: data/examples/declaration/value/function/application-2-four-out.hs

{-# 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