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

{-# LANGUAGE OverloadedRecordDot #-}
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 = (case True of
   True -> man
   False -> man).name