haskell-language-server-2.15.0.0: plugins/hls-case-split-plugin/test/testdata/TRecordsFieldNamesIgnored.expected.hs

{-# LANGUAGE EmptyCase #-}
{-# OPTIONS_GHC -Wall -fmax-uncovered-patterns=99 #-}
module T where

data X = A
       | B
       | C { foo :: Int }
       | D { bar :: Int, baz :: Int }
       | E
       | F

f :: X -> Int
f x = case x of
  A -> _
  B -> _
  C _ -> _
  D _ _ -> _
  E -> _
  F -> _