diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-02-28 21:39:48 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-02-28 21:39:48 +0000 |
| commit | b6772245616d424e85ee0852c0a1002854bef6af (patch) | |
| tree | 4f44ce404875b1ee93ca0594e3e2c1c89cc7d356 /libraries/base/GHC/Desugar.hs | |
| parent | 31521d1b700f1c322065dc50b1314c579be53e6f (diff) | |
| download | haskell-b6772245616d424e85ee0852c0a1002854bef6af.tar.gz | |
Remove some __HADDOCK__ CPP
I think it was all to work around problems in old versions of haddock.
Diffstat (limited to 'libraries/base/GHC/Desugar.hs')
| -rw-r--r-- | libraries/base/GHC/Desugar.hs | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/libraries/base/GHC/Desugar.hs b/libraries/base/GHC/Desugar.hs index 6a5562f7fe..d4da1c86c8 100644 --- a/libraries/base/GHC/Desugar.hs +++ b/libraries/base/GHC/Desugar.hs @@ -27,9 +27,7 @@ import Control.Category ((.)) import Data.Data (Data) -- A version of Control.Category.>>> overloaded on Arrow -#ifndef __HADDOCK__ (>>>) :: forall arr. Arrow arr => forall a b c. arr a b -> arr b c -> arr a c -#endif -- NB: the type of this function is the "shape" that GHC expects -- in tcInstClassOp. So don't put all the foralls at the front! -- Yes, this is a bit grotesque, but heck it works and the whole |