diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-18 22:44:19 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-06-20 16:22:07 +0200 |
| commit | 3dc1202546e63b50f828a34474717b1ddcbed5c7 (patch) | |
| tree | 745fde8e9712c6d0b0507d9ae4988736c678abdb /testsuite/tests/typecheck/should_fail/tcfail112.hs | |
| parent | cf6e65693588cd9d40c895279f2e53d3d25a2c58 (diff) | |
| download | haskell-3dc1202546e63b50f828a34474717b1ddcbed5c7.tar.gz | |
Testsuite: tabs -> spaces [skip ci]
Diffstat (limited to 'testsuite/tests/typecheck/should_fail/tcfail112.hs')
| -rw-r--r-- | testsuite/tests/typecheck/should_fail/tcfail112.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/tests/typecheck/should_fail/tcfail112.hs b/testsuite/tests/typecheck/should_fail/tcfail112.hs index 01dd578ab7..5252f83b14 100644 --- a/testsuite/tests/typecheck/should_fail/tcfail112.hs +++ b/testsuite/tests/typecheck/should_fail/tcfail112.hs @@ -1,4 +1,4 @@ --- Record construction should fail statically +-- Record construction should fail statically -- if there are any strict fields, -- including in the non-record case. @@ -8,8 +8,8 @@ data S = S { x::Int, y:: ! Int } data T = T Int !Int data U = U Int Int -s1 = S {} -- Bad -s2 = S { x=3 } -- Bad -s3 = S { y=3 } -- Ok -t = T {} -- Bad -u = U {} -- Ok +s1 = S {} -- Bad +s2 = S { x=3 } -- Bad +s3 = S { y=3 } -- Ok +t = T {} -- Bad +u = U {} -- Ok |