haskell-language-server-2.7.0.0: plugins/hls-overloaded-record-dot-plugin/test/testdata/MultilineCase.hs

data Happy = Happy {name :: String, age :: Int, happy :: Bool}

main :: IO ()
main = do
  putStrLn test

man :: Happy
man = Happy {name = "Happy", age = 1, happy = True}

test ::  String
test = name $ case True of
   True  -> man
   False -> man