blob: 81036b9dfc39ec590d59cd62dc4d7e0b4093bb0d (
plain)
1
2
3
4
5
6
7
8
9
10
|
-- !!! Check that not supplying bindings for strict fields
-- !!! is flagged as being incorrect.
module ShouldFail where
data F
= F { x :: Int, y :: !Int }
z :: F
z = F { x = 2 }
|