hls-tactics-plugin-1.2.0.0: test/golden/LayoutSplitWhere.expected.hs

data A = A | B | C

some :: A -> IO ()
some a = do
    foo
    bar a
  where
      foo = putStrLn "Hi"

      bar :: A -> IO ()
      bar A = _
      bar B = _
      bar C = _