blob: 6056af152a272f7de210ae823d7a0c831833723e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE OverloadedRecordDot #-}
module PprRecordDotSyntax3 where
import qualified RecordDotSyntaxA as A
main = do
print $ id A.n -- Foo {foo = 2}; f M.x means f (M.x)
print $ id A.n.foo -- 2; f M.n.x means f (M.n.x)
let bar = A.Foo {A.foo = 1}
print $ bar.foo -- Ok; 1
-- print $ bar.A.foo -- parse error on input 'A.foo'
|
