Fix validation warning

b540be06 · dterei · 84b596a7 · b540be06
Commit b540be06 authored Dec 22, 2011 by dterei
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/cmm/OldPprCmm.hs compiler/cmm/OldPprCmm.hs +1 -1

No files found.
--- a/compiler/cmm/OldPprCmm.hs
+++ b/compiler/cmm/OldPprCmm.hs
@@ -221,7 +221,7 @@ genJump platform expr =
 --     return (a, b, c);
 --
 genReturn :: Platform -> SDoc
-genReturn platform =
+genReturn _ =
    hcat [ ptext (sLit "return") , semi ]

 -- --------------------------------------------------------------------------