diff options
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/Test10313.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghc-api/annotations/stringSource.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/printer/Ppr009.hs | 3 |
3 files changed, 2 insertions, 5 deletions
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)])] diff --git a/testsuite/tests/printer/Ppr009.hs b/testsuite/tests/printer/Ppr009.hs index d24ecdc517..baaeb211db 100644 --- a/testsuite/tests/printer/Ppr009.hs +++ b/testsuite/tests/printer/Ppr009.hs @@ -3,7 +3,6 @@ module Ppr009 where {-# INLINE strictStream #-} strictStream (Bitstream l v) - = {-# CORE "Strict Bitstream stream" #-} - S.concatMap stream (GV.stream v) + = S.concatMap stream (GV.stream v) `S.sized` Exact l |