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:
bef2698
)
Use "-- //" (2 spaces) rather than "-- //" (1) to avoid tripping haddock up
author
Ian Lynagh
<igloo@earth.li>
Wed, 27 Jun 2007 01:09:30 +0000
(
01:09
+0000)
committer
Ian Lynagh
<igloo@earth.li>
Wed, 27 Jun 2007 01:09:30 +0000
(
01:09
+0000)
Are we nearly there yet?
include/CTypes.h
patch
|
blob
|
history
include/Typeable.h
patch
|
blob
|
history
diff --git
a/include/CTypes.h
b/include/CTypes.h
index
5ee8f48
..
a3a8b3a
100644
(file)
--- a/
include/CTypes.h
+++ b/
include/CTypes.h
@@
-16,7
+16,7
@@
// macros below are modified, otherwise the layout rule will bite you.
-}
// macros below are modified, otherwise the layout rule will bite you.
-}
--- // A hacked version for GHC follows the Haskell 98 version...
+-- // A hacked version for GHC follows the Haskell 98 version...
#ifndef __GLASGOW_HASKELL__
#define ARITHMETIC_TYPE(T,C,S,B) \
#ifndef __GLASGOW_HASKELL__
#define ARITHMETIC_TYPE(T,C,S,B) \
@@
-171,7
+171,7
@@
instance Storable T where { \
#else /* __GLASGOW_HASKELL__ */
#else /* __GLASGOW_HASKELL__ */
--- // GHC can derive any class for a newtype, so we make use of that here...
+-- // GHC can derive any class for a newtype, so we make use of that here...
#define ARITHMETIC_CLASSES Eq,Ord,Num,Enum,Storable,Real
#define INTEGRAL_CLASSES Bounded,Integral,Bits
#define ARITHMETIC_CLASSES Eq,Ord,Num,Enum,Storable,Real
#define INTEGRAL_CLASSES Bounded,Integral,Bits
diff --git
a/include/Typeable.h
b/include/Typeable.h
index
35de273
..
5e22e03
100644
(file)
--- a/
include/Typeable.h
+++ b/
include/Typeable.h
@@
-20,8
+20,8
@@
instance Typeable tycon where { typeOf _ = mkTyConApp tcname [] }
#ifdef __GLASGOW_HASKELL__
#ifdef __GLASGOW_HASKELL__
--- // For GHC, the extra instances follow from general instance declarations
--- // defined in Data.Typeable.
+-- // For GHC, the extra instances follow from general instance declarations
+-- // defined in Data.Typeable.
#define INSTANCE_TYPEABLE1(tycon,tcname,str) \
tcname = mkTyCon str; \
#define INSTANCE_TYPEABLE1(tycon,tcname,str) \
tcname = mkTyCon str; \