test/formatters/samplecode/brittany/out.hs


1
2
3
4
5
6
7
8
9

-- | Foo performs foo and sometimes bar.

foo :: Thoroughness -> Int -> Int
foo t x = if x > 20
  then case t of
    Thorough -> x + 50
    Somewhat -> x + 20
    NotAtAll -> 0
  else 10 + 1