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

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

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

foo :: X -> Int
foo x = do (\  case {
                      A -> _;
                      B -> _;
                      C _ -> _;
                      D _ _ -> _;
                      E -> _;
                      F -> _}) x