projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d2be8aa
)
[project @ 2003-05-12 08:57:55 by ross]
author
ross
<unknown>
Mon, 12 May 2003 08:57:55 +0000
(08:57 +0000)
committer
ross
<unknown>
Mon, 12 May 2003 08:57:55 +0000
(08:57 +0000)
cosmetic change
Data/Dynamic.hs
patch
|
blob
|
history
diff --git
a/Data/Dynamic.hs
b/Data/Dynamic.hs
index
4a12b20
..
cbc98a0
100644
(file)
--- a/
Data/Dynamic.hs
+++ b/
Data/Dynamic.hs
@@
-193,6
+193,7
@@
dynApp f x = case dynApply f x of
"Can't apply function " ++ show f ++
" to argument " ++ show x)
"Can't apply function " ++ show f ++
" to argument " ++ show x)
+#ifndef __HUGS__
-------------------------------------------------------------
--
-- Type representations
-------------------------------------------------------------
--
-- Type representations
@@
-201,7
+202,6
@@
dynApp f x = case dynApply f x of
-- | A concrete representation of a (monomorphic) type. 'TypeRep'
-- supports reasonably efficient equality.
-- | A concrete representation of a (monomorphic) type. 'TypeRep'
-- supports reasonably efficient equality.
-#ifndef __HUGS__
data TypeRep = TypeRep !Key TyCon [TypeRep]
-- Compare keys for equality
data TypeRep = TypeRep !Key TyCon [TypeRep]
-- Compare keys for equality