overloadedrecfldsfail05.hs

{-# LANGUAGE DuplicateRecordFields #-}
{-# OPTIONS_GHC -fwarn-unused-binds -Werror #-}

module Main (main, T(MkT)) where

data S = MkS { foo :: Int }
data T = MkT { foo :: Int }

-- This should count as a use of S(foo) but not T(foo)
main = print ((\ MkS{foo=foo} -> foo) (MkS 3))