diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2019-11-13 17:16:58 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-22 14:58:14 -0500 |
commit | 092f05321b064e1949e1dabd1867ec5078fbc575 (patch) | |
tree | 1b640b9985329bd39d0618d49fe520fdc630a41f /testsuite/tests | |
parent | 1ff61314fae7a0ffb69e3cc2bc37f9715bf8c883 (diff) | |
download | haskell-092f05321b064e1949e1dabd1867ec5078fbc575.tar.gz |
When deriving Eq always use tag based comparisons for nullary constructors
Instead of producing auxiliary con2tag bindings we now rely on
dataToTag#, eliminating a fair bit of generated code.
Co-Authored-By: Ben Gamari <ben@well-typed.com>
Diffstat (limited to 'testsuite/tests')
-rw-r--r-- | testsuite/tests/deriving/should_compile/T14682.stderr | 2 | ||||
-rw-r--r-- | testsuite/tests/perf/compiler/T18304.hs | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/testsuite/tests/deriving/should_compile/T14682.stderr b/testsuite/tests/deriving/should_compile/T14682.stderr index e0c8b332ed..064f6a025a 100644 --- a/testsuite/tests/deriving/should_compile/T14682.stderr +++ b/testsuite/tests/deriving/should_compile/T14682.stderr @@ -73,8 +73,6 @@ Derived class instances: $tFoo :: Data.Data.DataType $cFoo :: Data.Data.Constr - $con2tag_Foo :: T14682.Foo -> GHC.Prim.Int# - $con2tag_Foo (T14682.Foo _ _) = 0# $tFoo = Data.Data.mkDataType "Foo" [$cFoo] $cFoo = Data.Data.mkConstr $tFoo "Foo" [] Data.Data.Prefix diff --git a/testsuite/tests/perf/compiler/T18304.hs b/testsuite/tests/perf/compiler/T18304.hs index 5902f52355..33581f415d 100644 --- a/testsuite/tests/perf/compiler/T18304.hs +++ b/testsuite/tests/perf/compiler/T18304.hs @@ -1,5 +1,5 @@ {-# LANGUAGE RecordWildCards, PatternGuards #-} -{-# OPTIONS_GHC -Wunused-binds #-} +{-# OPTIONS_GHC -Wno-unused-binds #-} module Text.HTML.TagSoup.Specification (dat, Out(..) ) |