git.iko.soy/ormolu
on d02483a help sign in
ormolu/data/examples/declaration/value/function/pattern/multiline-case-pattern.hs
12 lines 250 B history raw
1readerBench doc name =
2 runPure $ case (getReader name, getWriter name) of
3 (Right (TextReader r, rexts),
4 Right (TextWriter w, wexts)) -> undefined
6f xs = case xs of
7 [ a,
8 b ] -> a + b
10g xs = case xs of
11 (a:
12 bs) -> a + b