[commit: ghc] wip/T12618: ConApp: Include dc worker id in dffvExpr (8fa2420)

[git at git.haskell.org]

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

On branch  : wip/T12618
Link       : http://ghc.haskell.org/trac/ghc/changeset/8fa24208a732b877952ded6e2e98f54f526dde19/ghc

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

commit 8fa24208a732b877952ded6e2e98f54f526dde19
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Oct 4 13:33:05 2016 -0400

    ConApp: Include dc worker id in dffvExpr
    
    just to see if this fixes the crashes here.


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

8fa24208a732b877952ded6e2e98f54f526dde19
 compiler/main/TidyPgm.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/main/TidyPgm.hs b/compiler/main/TidyPgm.hs
index 6f867d6..f26aae4 100644
--- a/compiler/main/TidyPgm.hs
+++ b/compiler/main/TidyPgm.hs
@@ -817,7 +817,7 @@ insert v = DFFV $ \ env (set, ids) ->
 dffvExpr :: CoreExpr -> DFFV ()
 dffvExpr (Var v)              = insert v
 dffvExpr (App e1 e2)          = dffvExpr e1 >> dffvExpr e2
-dffvExpr (ConApp _ args)      = mapM_ dffvExpr args
+dffvExpr (ConApp dc args)     = insert (dataConWorkId dc) >> mapM_ dffvExpr args
 dffvExpr (Lam v e)            = extendScope v (dffvExpr e)
 dffvExpr (Tick (Breakpoint _ ids) e) = mapM_ insert ids >> dffvExpr e
 dffvExpr (Tick _other e)    = dffvExpr e