fourmolu-0.13.0.0: region-tests/expected-result-8-9.hs

{-# LANGUAGE LambdaCase #-}

module Foo (
  foo, bar, baz) where

import Control.Category

foo :: Int
foo = 5

bar :: Int -> Int
bar = \case
         0 -> foo
         x -> x   -   foo

baz :: Int -> Int
baz = gege
  where
    gege = 1
       >>> zeze +
           2
           >>> nona