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

{-# LANGUAGE PatternSynonyms #-}
{-# OPTIONS_GHC -Wall #-}
{-# LANGUAGE EmptyCase #-}
module Pat where

data Bar = Bar | Baz

pattern Foo :: Bar
pattern Foo = Baz
{-# COMPLETE Foo #-}

x :: Bar -> p
x y = case y :: Bar of
  Foo -> _