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