testsuite/tests/printer/PprRecordDotSyntax4.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE OverloadedRecordDot #-}

module PprRecordDotSyntax4 where

import qualified RecordDotSyntaxA as A

main = do
  let bar = A.Foo {A.foo = 1}
  print $ bar{A.foo = 2} -- Qualified labels ok in regular updates.