ghci> :set -XOverloadedRecordDot ghci> data Val = Val {field1::Bool, field2::Int} deriving Show ghci> x = Val True 100 ghci> x.field1 True ghci> x.field2 100