projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5daa3de
)
[project @ 2000-04-10 13:59:17 by simonmar]
author
simonmar
<unknown>
Mon, 10 Apr 2000 13:59:17 +0000
(13:59 +0000)
committer
simonmar
<unknown>
Mon, 10 Apr 2000 13:59:17 +0000
(13:59 +0000)
Text => Show
ghc/compiler/absCSyn/Costs.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/absCSyn/Costs.lhs
b/ghc/compiler/absCSyn/Costs.lhs
index
f3aee78
..
6befe2e
100644
(file)
--- 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
%
%
% (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
% ---------------------------------------------------------------------------
%
% Only needed in a GranSim setup -- HWL
% ---------------------------------------------------------------------------
@@
-67,7
+67,7
@@
import Panic ( trace )
-- --------------------------------------------------------------------------
data CostRes = Cost (Int, Int, Int, Int, Int)
-- --------------------------------------------------------------------------
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
nullCosts = Cost (0, 0, 0, 0, 0) :: CostRes
initHdrCosts = Cost (2, 0, 0, 1, 0) :: CostRes