X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;h=3588fe5018997bb8c167722138652d2755f060c2;hb=74b1006ed8565ff3c39edcdaf859d606dd652641;hp=5296a1baf3eaba97ad0d96f24caf584e1faae77f;hpb=6a074eb7adf4ef3e11646911875a39474d00095a;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 5296a1b..3588fe5 100644
--- a/ghc/compiler/absCSyn/Costs.lhs
+++ b/ghc/compiler/absCSyn/Costs.lhs
@@ -217,7 +217,7 @@ costs absC =
 
    CStaticClosure _ _ _ _    -> nullCosts
 
-   CClosureInfoAndCode _ _ _ _ _ -> nullCosts
+   CClosureInfoAndCode _ _ _ _ -> nullCosts
 
    CRetDirect _ _ _ _	     -> nullCosts