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

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

data X = A
       | B Int
       | C Int Int
       | D Int Int Int
       | E Int Int Int Int
       | F Int Int Int Int Int

foo :: X -> Int
foo x = case x of
          A {} -> 1
          B _ -> 2