fourmolu-0.2.0.0: data/examples/declaration/value/function/pattern/multiline-case-pattern-four-out.hs

readerBench doc name =
    runPure $ case (getReader name, getWriter name) of
        ( Right (TextReader r, rexts)
            , Right (TextWriter w, wexts)
            ) -> undefined

f xs = case xs of
    [ a
        , b
        ] -> a + b

g xs = case xs of
    ( a
            : bs
        ) -> a + b