diff options
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghc-api/T6145.hs | 2 | ||||
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/listcomps.stdout | 10 | ||||
| -rw-r--r-- | testsuite/tests/ghc-api/landmines/landmines.stdout | 6 |
3 files changed, 10 insertions, 8 deletions
diff --git a/testsuite/tests/ghc-api/T6145.hs b/testsuite/tests/ghc-api/T6145.hs index 13b80eef87..58a4f9b7d5 100644 --- a/testsuite/tests/ghc-api/T6145.hs +++ b/testsuite/tests/ghc-api/T6145.hs @@ -35,7 +35,7 @@ main = do isDataCon (L _ (AbsBinds { abs_binds = bs })) = not (isEmptyBag (filterBag isDataCon bs)) isDataCon (L l (f@FunBind {})) - | (MG (m:_) _ _ _) <- fun_matches f, + | (MG (L _ (m:_)) _ _ _) <- fun_matches f, (L _ (c@ConPatOut{}):_)<-hsLMatchPats m, (L l _)<-pat_con c = isGoodSrcSpan l -- Check that the source location is a good one diff --git a/testsuite/tests/ghc-api/annotations/listcomps.stdout b/testsuite/tests/ghc-api/annotations/listcomps.stdout index 081258a5cf..1c0b8e5ce4 100644 --- a/testsuite/tests/ghc-api/annotations/listcomps.stdout +++ b/testsuite/tests/ghc-api/annotations/listcomps.stdout @@ -12,9 +12,10 @@ ListComprehensions.hs:(18,18)-(22,20), ListComprehensions.hs:(18,20)-(22,20), ListComprehensions.hs:18:22, ListComprehensions.hs:18:22-26, ListComprehensions.hs:18:22-30, - ListComprehensions.hs:18:24, ListComprehensions.hs:18:26, - ListComprehensions.hs:18:28, ListComprehensions.hs:18:30, - ListComprehensions.hs:19:22, ListComprehensions.hs:19:22-33, + ListComprehensions.hs:(18,22)-(21,34), ListComprehensions.hs:18:24, + ListComprehensions.hs:18:26, ListComprehensions.hs:18:28, + ListComprehensions.hs:18:30, ListComprehensions.hs:19:22, + ListComprehensions.hs:19:22-33, ListComprehensions.hs:(19,22)-(21,34), ListComprehensions.hs:19:27-33, ListComprehensions.hs:19:28, ListComprehensions.hs:19:31-32, ListComprehensions.hs:20:22, @@ -30,7 +31,8 @@ ListComprehensions.hs:25:8-10, ListComprehensions.hs:(25,12)-(28,14), ListComprehensions.hs:(25,14)-(28,14), - ListComprehensions.hs:25:16-20, ListComprehensions.hs:26:16, + ListComprehensions.hs:25:16-20, + ListComprehensions.hs:(25,16)-(27,22), ListComprehensions.hs:26:16, ListComprehensions.hs:26:16-23, ListComprehensions.hs:(26,16)-(27,22), ListComprehensions.hs:26:21-23, ListComprehensions.hs:27:21-22, diff --git a/testsuite/tests/ghc-api/landmines/landmines.stdout b/testsuite/tests/ghc-api/landmines/landmines.stdout index 7d667ed6f8..bddb1be992 100644 --- a/testsuite/tests/ghc-api/landmines/landmines.stdout +++ b/testsuite/tests/ghc-api/landmines/landmines.stdout @@ -1,4 +1,4 @@ -(10,10,6) +(11,11,7) (49,45,0) -(12,11,6) -(8,8,6) +(13,12,7) +(9,9,7) |