diff options
| author | simonpj@microsoft.com <unknown> | 2010-01-08 08:44:28 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-01-08 08:44:28 +0000 |
| commit | b69a0de34fa76b3ba0c97e8c6e9782686aa8282c (patch) | |
| tree | 88552c5e7e97b87f3810de9dab254db2ee6b502e /compiler/coreSyn | |
| parent | 354d1eb692be9fa5683dab82258062ebc61fdb2d (diff) | |
| download | haskell-b69a0de34fa76b3ba0c97e8c6e9782686aa8282c.tar.gz | |
Comment out debug warnings; they are fine
Diffstat (limited to 'compiler/coreSyn')
| -rw-r--r-- | compiler/coreSyn/CoreSubst.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs index 0c0ca157a5..efd573d85b 100644 --- a/compiler/coreSyn/CoreSubst.lhs +++ b/compiler/coreSyn/CoreSubst.lhs @@ -566,13 +566,13 @@ substUnfoldingSource (Subst in_scope ids _) (InlineWrapper wkr) | Just wkr_expr <- lookupVarEnv ids wkr = case wkr_expr of Var w1 -> InlineWrapper w1 - _other -> WARN( True, text "Interesting! CoreSubst.substWorker1:" <+> ppr wkr - <+> ifPprDebug (equals <+> ppr wkr_expr) ) + _other -> -- WARN( True, text "Interesting! CoreSubst.substWorker1:" <+> ppr wkr + -- <+> ifPprDebug (equals <+> ppr wkr_expr) ) -- Note [Worker inlining] InlineRule -- It's not a wrapper any more, but still inline it! | Just w1 <- lookupInScope in_scope wkr = InlineWrapper w1 - | otherwise = WARN( True, text "Interesting! CoreSubst.substWorker2:" <+> ppr wkr ) + | otherwise = -- WARN( True, text "Interesting! CoreSubst.substWorker2:" <+> ppr wkr ) -- This can legitimately happen. The worker has been inlined and -- dropped as dead code, because we don't treat the UnfoldingSource -- as an "occurrence". |