hls-tactics-plugin-1.8.0.0: old/test/golden/EmptyCaseADT.hs

data Foo = A Int | B Bool | C

foo :: Foo -> ()
foo x = case x of