diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2021-02-21 21:23:40 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-03-20 07:48:38 -0400 |
| commit | 95275a5f25a2e70b71240d4756109180486af1b1 (patch) | |
| tree | eb4801bb0e00098b8b9d513479de4fbbd779ddac /testsuite/tests/th | |
| parent | f940fd466a86c2f8e93237b36835797be3f3c898 (diff) | |
| download | haskell-95275a5f25a2e70b71240d4756109180486af1b1.tar.gz | |
GHC Exactprint main commit
Metric Increase:
T10370
parsing001
Updates haddock submodule
Diffstat (limited to 'testsuite/tests/th')
| -rw-r--r-- | testsuite/tests/th/T10603.stderr | 4 | ||||
| -rw-r--r-- | testsuite/tests/th/TH_StaticPointers02.stderr | 4 | ||||
| -rw-r--r-- | testsuite/tests/th/TH_exn1.stderr | 2 |
3 files changed, 5 insertions, 5 deletions
diff --git a/testsuite/tests/th/T10603.stderr b/testsuite/tests/th/T10603.stderr index 3de6cb057b..2828bb078a 100644 --- a/testsuite/tests/th/T10603.stderr +++ b/testsuite/tests/th/T10603.stderr @@ -1,4 +1,4 @@ T10603.hs:5:17-69: Splicing expression - [| case Just 'a' of { Just a -> Just ((\ x -> x) a) } |] + [| case Just 'a' of Just a -> Just ((\ x -> x) a) |] ======> - case Just 'a' of { Just a -> Just ((\ x -> x) a) } + case Just 'a' of Just a -> Just ((\ x -> x) a) diff --git a/testsuite/tests/th/TH_StaticPointers02.stderr b/testsuite/tests/th/TH_StaticPointers02.stderr index a89ad11b0d..6d2c759ab8 100644 --- a/testsuite/tests/th/TH_StaticPointers02.stderr +++ b/testsuite/tests/th/TH_StaticPointers02.stderr @@ -2,11 +2,11 @@ TH_StaticPointers02.hs:11:34: error: • static forms cannot be used in splices: static 'a' • In the untyped splice: - $(case staticKey (static 'a') of { + $(case staticKey (static 'a') of Fingerprint w0 w1 -> let w0i = ... w1i = ... in [| fmap (\ p -> deRefStaticPtr p :: Char) $ unsafeLookupStaticPtr - $ Fingerprint (fromIntegral w0i) (fromIntegral w1i) |] }) + $ Fingerprint (fromIntegral w0i) (fromIntegral w1i) |]) diff --git a/testsuite/tests/th/TH_exn1.stderr b/testsuite/tests/th/TH_exn1.stderr index 69c854e244..2df704662c 100644 --- a/testsuite/tests/th/TH_exn1.stderr +++ b/testsuite/tests/th/TH_exn1.stderr @@ -3,4 +3,4 @@ TH_exn1.hs:1:1: error: Exception when trying to run compile-time code: TH_exn1.hs:(9,4)-(10,23): Non-exhaustive patterns in case - Code: (case reverse "no" of { [] -> return [] }) + Code: (case reverse "no" of [] -> return []) |