diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-07-11 03:02:09 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-18 07:26:45 -0400 |
| commit | 12f9035200424ec8104484f154a040d612fee99d (patch) | |
| tree | 550c799d324d25f15b4dcbe0e5e4b4d61d6a4906 /testsuite/tests/ghc-api | |
| parent | e5525a51900623e04ec914e9dcc7f4ad1fd3b528 (diff) | |
| download | haskell-12f9035200424ec8104484f154a040d612fee99d.tar.gz | |
Remove {-# CORE #-} pragma (part of #18048)
This pragma has no effect since 2011.
It was introduced for External Core, which no longer exists.
Updates haddock submodule.
Diffstat (limited to 'testsuite/tests/ghc-api')
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/T10313.stdout | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/Test10313.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/stringSource.hs | 1 |
3 files changed, 1 insertions, 6 deletions
diff --git a/testsuite/tests/ghc-api/annotations/T10313.stdout b/testsuite/tests/ghc-api/annotations/T10313.stdout index d1cc35cb61..29fa705666 100644 --- a/testsuite/tests/ghc-api/annotations/T10313.stdout +++ b/testsuite/tests/ghc-api/annotations/T10313.stdout @@ -10,8 +10,5 @@ ([c], [(SourceText "foo\x63", fooc), (SourceText "b\x61r", bar)]), ([r], [(SourceText "foo1\x67", foo1g)]), ([s, t], [(SourceText "a\x62", ab)]), - ([c, o], - [(SourceText "Strict Bitstream stre\x61m", - Strict Bitstream stream)]), ([s, c], [(SourceText "foo\x64", food)]), ([t, p], [(SourceText "foob\x61r", foobar)])] diff --git a/testsuite/tests/ghc-api/annotations/Test10313.hs b/testsuite/tests/ghc-api/annotations/Test10313.hs index 130e84b0e3..b8ed962a62 100644 --- a/testsuite/tests/ghc-api/annotations/Test10313.hs +++ b/testsuite/tests/ghc-api/annotations/Test10313.hs @@ -28,8 +28,7 @@ foreign import prim unsafe "a\x62" a :: IO Int {-# INLINE strictStream #-} strictStream (Bitstream l v) - = {-# CORE "Strict Bitstream stre\x61m" #-} - S.concatMap stream (GV.stream v) + = S.concatMap stream (GV.stream v) `S.sized` Exact l diff --git a/testsuite/tests/ghc-api/annotations/stringSource.hs b/testsuite/tests/ghc-api/annotations/stringSource.hs index 776aebd048..2bc2638e84 100644 --- a/testsuite/tests/ghc-api/annotations/stringSource.hs +++ b/testsuite/tests/ghc-api/annotations/stringSource.hs @@ -84,7 +84,6 @@ testOneFile libdir fileName = do doHsExpr _ = [] doPragE :: HsPragE GhcPs -> [(String,[Located (SourceText,FastString)])] - doPragE (HsPragCore _ src ss) = [("co",[conv (noLoc ss)])] doPragE (HsPragSCC _ src ss) = [("sc",[conv (noLoc ss)])] doPragE (HsPragTick _ src (ss,_,_) _ss2) = [("tp",[conv (noLoc ss)])] |