diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-05-25 19:07:51 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-05-25 20:47:26 +0100 |
| commit | a5f5a70c41b4bce2715bf5d478171fbaf060cddf (patch) | |
| tree | e9be157af01bcb2c9a4ac51e01d3b9c71c0d4307 /compiler/simplCore/SimplUtils.lhs | |
| parent | ea3a9edda14f952042fa262abd37cc4fa0c1dd6d (diff) | |
| download | haskell-sdoc.tar.gz | |
More DynFlags + SDocsdoc
Diffstat (limited to 'compiler/simplCore/SimplUtils.lhs')
| -rw-r--r-- | compiler/simplCore/SimplUtils.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs index 7d5d764fc6..c223ec45b2 100644 --- a/compiler/simplCore/SimplUtils.lhs +++ b/compiler/simplCore/SimplUtils.lhs @@ -393,7 +393,7 @@ mkArgInfo fun rules n_val_args call_cont else map isStrictDmd demands ++ vanilla_stricts | otherwise - -> WARN( True, text "More demands than arity" <+> ppr fun <+> ppr (idArity fun) + -> WARN( dflags, True, text "More demands than arity" <+> ppr fun <+> ppr (idArity fun) <+> ppr n_val_args <+> ppr demands ) vanilla_stricts -- Not enough args, or no strictness @@ -1110,7 +1110,7 @@ tryEtaExpand env bndr rhs = do { dflags <- getDOptsSmpl ; (new_arity, new_rhs) <- try_expand dflags - ; WARN( new_arity < old_arity || new_arity < _dmd_arity, + ; WARN( dflags, new_arity < old_arity || new_arity < _dmd_arity, (ptext (sLit "Arity decrease:") <+> (ppr bndr <+> ppr old_arity <+> ppr new_arity <+> ppr _dmd_arity) $$ ppr new_rhs) ) -- Note [Arity decrease] |