blob: f7f0374a17305d76c371b94176250a2b703011a9 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# 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))
|