blob: 5da0175a1e10a6e1ce77d8fc96636be9946bec6b (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE NoDuplicateRecordFields #-}
module NFSDuplicate where
-- Two definitions of 'foo' as fields is an error, even though it is permitted
-- to define it as a non-field.
data S = MkS { foo :: Int }
data T = MkT { foo :: Int }
foo = ()
|
