[commit: ghc] wip/T14373: less debugging (41ab5aa)

[git at git.haskell.org]

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

On branch  : wip/T14373
Link       : http://ghc.haskell.org/trac/ghc/changeset/41ab5aa66e1affd2640cd1aa76cb262e95599e91/ghc

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

commit 41ab5aa66e1affd2640cd1aa76cb262e95599e91
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Dec 13 16:11:10 2017 +0100

    less debugging


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

41ab5aa66e1affd2640cd1aa76cb262e95599e91
 compiler/stgSyn/CoreToStg.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/stgSyn/CoreToStg.hs b/compiler/stgSyn/CoreToStg.hs
index bd4f1a6..573560a 100644
--- a/compiler/stgSyn/CoreToStg.hs
+++ b/compiler/stgSyn/CoreToStg.hs
@@ -547,7 +547,7 @@ coreToStgApp _ f args ticks = do
          | otherwise                = stgUnsatOcc       -- Unsaturated function or thunk
 
         res_ty = exprType (mkApps (Var f) args)
-        app = case traceShowId $ idDetails f of
+        app = case {-traceShowId $-} idDetails f of
                 DataConWorkId dc
                   | saturated    -> StgConApp dc args'
                                       (dropRuntimeRepArgs (fromMaybe [] (tyConAppArgs_maybe res_ty)))