ormolu-0.9.0.0: data/examples/declaration/value/function/newline-single-line-body-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"