data/examples/declaration/value/function/record-dot.hs · ormolu

on d579a48 help sign in

14 lines 280 B history raw

1{-# OPTIONS_GHC -fplugin=RecordDotPreprocessor #-}

2data Foo = Foo { bar :: Int }

4mfoo = fmap (.bar) $ Nothing

6bar = ( Foo 1).bar

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

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

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

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