X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;h=1730cc562ba0253fdd1292780311ab9c94d2ae8b;hb=2c71b5dbed008d1d8752b722755143e797debb9d;hp=6ea04852966104afe8d1b369b4fa427554913362;hpb=661a9aefe5e7a922bf6b0be96c933569eb33900e;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 6ea0485..1730cc5 100644
--- a/ghc/compiler/absCSyn/Costs.lhs
+++ b/ghc/compiler/absCSyn/Costs.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: Costs.lhs,v 1.30 2001/11/23 11:58:00 simonmar Exp $
+% $Id: Costs.lhs,v 1.31 2002/01/02 12:32:19 simonmar Exp $
 %
 % Only needed in a GranSim setup -- HWL
 % ---------------------------------------------------------------------------
@@ -217,7 +217,7 @@ costs absC =
 
    CCallTypedef _ _ _ _ _    -> nullCosts
 
-   CStaticClosure _ _ _ _    -> nullCosts
+   CStaticClosure _ _ _      -> nullCosts
 
    CSRT _ _                  -> nullCosts