From 4eaea513c945a1571054e0b298920e4a2a38950b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 11:44:17 +0000
Subject: [PATCH] [project @ 1998-08-14 11:44:17 by sof] primOpCosts: CcallOp
 p. match update

---
 ghc/compiler/absCSyn/Costs.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index 44514ea..0ce8907 100644
--- a/ghc/compiler/absCSyn/Costs.lhs
+++ b/ghc/compiler/absCSyn/Costs.lhs
@@ -59,7 +59,7 @@ module Costs( costs,
 
 import AbsCSyn
 import PrimOp		( primOpNeedsWrapper, PrimOp(..) )
-import GlaExts		( trace )
+import Util		( trace )
 
 -- --------------------------------------------------------------------------
 newtype CostRes = Cost (Int, Int, Int, Int, Int)
@@ -416,7 +416,7 @@ primOpCosts :: PrimOp -> CostRes
 
 -- Special cases
 
-primOpCosts (CCallOp _ _ _ _ _) = SAVE_COSTS + RESTORE_COSTS  	
+primOpCosts (CCallOp _ _ _ _ _ _) = SAVE_COSTS + RESTORE_COSTS  	
 	                          -- don't guess costs of ccall proper
                                   -- for exact costing use a GRAN_EXEC
                                   -- in the C code
-- 
1.7.10.4