ormolu-0.0.3.1: data/examples/declaration/value/function/record-dot-out.hs

{-# OPTIONS_GHC -fplugin=RecordDotPreprocessor #-}

data Foo = Foo {bar :: Int}

mfoo = fmap (.bar) $ Nothing

bar = (Foo 1).bar

fooplus f n = f{foo = f.bar + n}

fooplus' f n = f {foo = f.bar + n}

fooplus'' f n = f {foo = f.bar + n}

fooplus''' f n = f {foo = f.bar + n}