diff options
Diffstat (limited to 'testsuite/tests/overloadedrecflds/should_fail/T11103.hs')
| -rw-r--r-- | testsuite/tests/overloadedrecflds/should_fail/T11103.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/overloadedrecflds/should_fail/T11103.hs b/testsuite/tests/overloadedrecflds/should_fail/T11103.hs index 2ba8e41a22..2791dc4fca 100644 --- a/testsuite/tests/overloadedrecflds/should_fail/T11103.hs +++ b/testsuite/tests/overloadedrecflds/should_fail/T11103.hs @@ -12,7 +12,7 @@ data S = MkS { foo :: Int } $(do info <- reify ''R case info of - TyConI (DataD _ _ _ [RecC _ [(foo_n, _, _), (bar_n, _, _)]] _) + TyConI (DataD _ _ _ _ [RecC _ [(foo_n, _, _), (bar_n, _, _)]] _) -> do { reify bar_n -- This is unambiguous ; reify foo_n -- This is ambiguous ; return [] |