X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;fp=ghc%2Fcompiler%2FabsCSyn%2FCosts.lhs;h=6befe2e41ca7a53817dd70d12cb381ef71806e8f;hb=b2f23f86c83dd1a2b63872146d61760c4a974242;hp=f3aee7832fa0b626f17196a26e010cbf5638c4cf;hpb=5daa3de55112387a79bff1df6c5037b23b90d72b;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/Costs.lhs b/ghc/compiler/absCSyn/Costs.lhs
index f3aee78..6befe2e 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.21 2000/03/23 17:45:17 simonpj Exp $
+% $Id: Costs.lhs,v 1.22 2000/04/10 13:59:17 simonmar Exp $
 %
 % Only needed in a GranSim setup -- HWL
 % ---------------------------------------------------------------------------
@@ -67,7 +67,7 @@ import Panic		( trace )
 
 -- --------------------------------------------------------------------------
 data CostRes = Cost (Int, Int, Int, Int, Int)
-	       deriving (Text)
+	       deriving (Show)
 
 nullCosts    = Cost (0, 0, 0, 0, 0) :: CostRes
 initHdrCosts = Cost (2, 0, 0, 1, 0) :: CostRes