From: simonmar <unknown>
Date: Mon, 10 Apr 2000 13:59:17 +0000 (+0000)
Subject: [project @ 2000-04-10 13:59:17 by simonmar]
X-Git-Tag: Approximately_9120_patches~4758
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b2f23f86c83dd1a2b63872146d61760c4a974242;p=ghc-hetmet.git

[project @ 2000-04-10 13:59:17 by simonmar]
Text => Show
---

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