[commit: ghc] wip/T12618: isTrueLHsExpr: Match on data con wrapper now (13557d6)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T12618
Link       : http://ghc.haskell.org/trac/ghc/changeset/13557d6e3d92315ed034479905aa4a15baff4025/ghc

>---------------------------------------------------------------

commit 13557d6e3d92315ed034479905aa4a15baff4025
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Fri Oct 7 09:18:53 2016 -0400

    isTrueLHsExpr: Match on data con wrapper now


>---------------------------------------------------------------

13557d6e3d92315ed034479905aa4a15baff4025
 compiler/prelude/TysWiredIn.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/compiler/prelude/TysWiredIn.hs b/compiler/prelude/TysWiredIn.hs
index 25dd64d..7be162a 100644
--- a/compiler/prelude/TysWiredIn.hs
+++ b/compiler/prelude/TysWiredIn.hs
@@ -24,7 +24,7 @@ module TysWiredIn (
         -- * Bool
         boolTy, boolTyCon, boolTyCon_RDR, boolTyConName,
         trueDataCon,  trueDataConId,  true_RDR,
-        falseDataCon, falseDataConId, false_RDR,
+        falseDataCon, false_RDR,
         promotedFalseDataCon, promotedTrueDataCon,
 
         -- * Ordering
@@ -1252,9 +1252,8 @@ falseDataCon, trueDataCon :: DataCon
 falseDataCon = pcDataCon falseDataConName [] [] boolTyCon
 trueDataCon  = pcDataCon trueDataConName  [] [] boolTyCon
 
-falseDataConId, trueDataConId :: Id
-falseDataConId = dataConWorkId falseDataCon
-trueDataConId  = dataConWorkId trueDataCon
+trueDataConId :: Id
+trueDataConId  = dataConWrapId trueDataCon
 
 orderingTyCon :: TyCon
 orderingTyCon = pcTyCon True orderingTyConName Nothing