fourmolu-0.2.0.0: data/examples/declaration/value/function/newline-single-line-body-four-out.hs

function :: Int -> Int
function a =
    aReallyLongFunctionNameThatShouldStayOnThisLineToAvoidOverflowing 10000 a

function' :: String -> String
function' s = case s of
    "ThisString" ->
        -- And a comment here is okay
        "Yay"
    _ -> "Boo"