pyrox.dev
lol
1diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs
2index 25ba154..fbb7874 100644
3--- a/compiler/codeGen/CgInfoTbls.hs
4+++ b/compiler/codeGen/CgInfoTbls.hs
5@@ -178,9 +178,7 @@ mkStackLayout = do
6 [(offset - frame_sp - retAddrSizeW, b)
7 | (offset, b) <- binds]
8
9- WARN( not (all (\bind -> fst bind >= 0) rel_binds),
10- pprPlatform platform binds $$ pprPlatform platform rel_binds $$
11- ppr frame_size $$ ppr real_sp $$ ppr frame_sp )
12+ WARN( not (all (\bind -> fst bind >= 0) rel_binds), pprPlatform platform binds $$ pprPlatform platform rel_binds $$ ppr frame_size $$ ppr real_sp $$ ppr frame_sp )
13 return $ stack_layout rel_binds frame_size
14
15 stack_layout :: [(VirtualSpOffset, CgIdInfo)]
16diff --git a/compiler/main/GhcMake.hs b/compiler/main/GhcMake.hs
17index 091e1be..23447e4 100644
18--- a/compiler/main/GhcMake.hs
19+++ b/compiler/main/GhcMake.hs
20@@ -338,8 +338,7 @@ load2 how_much mod_graph = do
21 liftIO $ intermediateCleanTempFiles dflags mods_to_keep hsc_env1
22
23 -- there should be no Nothings where linkables should be, now
24- ASSERT(all (isJust.hm_linkable)
25- (eltsUFM (hsc_HPT hsc_env))) do
26+ ASSERT(all (isJust.hm_linkable) (eltsUFM (hsc_HPT hsc_env))) do
27
28 -- Link everything together
29 linkresult <- liftIO $ link (ghcLink dflags) dflags False hpt4
30diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
31index 86dc88d..ecde4fd 100644
32--- a/compiler/simplCore/SimplUtils.lhs
33+++ b/compiler/simplCore/SimplUtils.lhs
34@@ -407,8 +407,7 @@ mkArgInfo fun rules n_val_args call_cont
35 else
36 map isStrictDmd demands ++ vanilla_stricts
37 | otherwise
38- -> WARN( True, text "More demands than arity" <+> ppr fun <+> ppr (idArity fun)
39- <+> ppr n_val_args <+> ppr demands )
40+ -> WARN( True, text "More demands than arity" <+> ppr fun <+> ppr (idArity fun) <+> ppr n_val_args <+> ppr demands )
41 vanilla_stricts -- Not enough args, or no strictness
42
43 add_type_str :: Type -> [Bool] -> [Bool]
44diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
45index 3bd95a7..4c9ee7c 100644
46--- a/compiler/simplCore/Simplify.lhs
47+++ b/compiler/simplCore/Simplify.lhs
48@@ -2336,8 +2336,7 @@ mkDupableAlt env case_bndr (con, bndrs', rhs')
49 rhs = mkConApp dc (map Type (tyConAppArgs scrut_ty)
50 ++ varsToCoreExprs bndrs')
51
52- LitAlt {} -> WARN( True, ptext (sLit "mkDupableAlt")
53- <+> ppr case_bndr <+> ppr con )
54+ LitAlt {} -> WARN( True, ptext (sLit "mkDupableAlt") <+> ppr case_bndr <+> ppr con )
55 case_bndr
56 -- The case binder is alive but trivial, so why has
57 -- it not been substituted away?