diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 16:41:33 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-07-20 16:41:33 +0000 |
| commit | 5b2b8d3547136c6d271c38b4a21cba3c1d7d51b1 (patch) | |
| tree | 77583dd7febfc7ed7d4b1154fc6385925b500632 /compiler/HsVersions.h | |
| parent | 15bef2b43ef7c90cb2a981a1a43b60bf878e64dc (diff) | |
| download | haskell-5b2b8d3547136c6d271c38b4a21cba3c1d7d51b1.tar.gz | |
Fix Haddock errors.
Diffstat (limited to 'compiler/HsVersions.h')
| -rw-r--r-- | compiler/HsVersions.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/HsVersions.h b/compiler/HsVersions.h index 1622928602..09c8d2efed 100644 --- a/compiler/HsVersions.h +++ b/compiler/HsVersions.h @@ -24,12 +24,18 @@ you will screw up the layout where they are used in case expressions! /* Global variables may not work in other Haskell implementations, * but we need them currently! so the conditional on GLASGOW won't do. */ +#ifndef __HADDOCK__ #if defined(__GLASGOW_HASKELL__) || !defined(__GLASGOW_HASKELL__) #define GLOBAL_VAR(name,value,ty) \ {-# NOINLINE name #-}; \ name :: IORef (ty); \ name = Util.global (value); #endif +#else /* __HADDOCK__ */ +#define GLOBAL_VAR(name,value,ty) \ +name :: IORef (ty); \ +name = Util.global (value); +#endif #define COMMA , |