Commit 3353f62a authored by Ben Gamari's avatar Ben Gamari Committed by Ben Gamari

Rip out __HADDOCK__ references

As it turns out no one actually sets this macro anyways and haddock
now clearly has no trouble parsing this code.

Test Plan: Validate

Reviewers: hvr, goldfire, austin

Reviewed By: austin

Subscribers: duncan, thomie, hvr

Differential Revision: https://phabricator.haskell.org/D1463
parent 8988be85
......@@ -30,10 +30,6 @@ module Foreign.Marshal.Error (
import Foreign.Ptr
#ifdef __HADDOCK__
import Data.Bool
import System.IO.Error
#endif
import GHC.Base
import GHC.Num
import GHC.IO.Exception
......
......@@ -1204,11 +1204,3 @@ a `iShiftRL#` b | isTrue# (b >=# WORD_SIZE_IN_BITS#) = 0#
-- unpackFoldr "foo" c (unpackFoldr "baz" c n) = unpackFoldr "foobaz" c n
#-}
#ifdef __HADDOCK__
-- | A special argument for the 'Control.Monad.ST.ST' type constructor,
-- indexing a state embedded in the 'Prelude.IO' monad by
-- 'Control.Monad.ST.stToIO'.
data RealWorld
#endif
......@@ -19,7 +19,7 @@
-----------------------------------------------------------------------------
module GHC.ConsoleHandler
#if !defined(mingw32_HOST_OS) && !defined(__HADDOCK__)
#if !defined(mingw32_HOST_OS)
where
import GHC.Base () -- dummy dependency
......
......@@ -34,8 +34,6 @@ import GHC.Tuple ()
import GHC.IntWord64
#endif
#if !defined(__HADDOCK__)
data Integer = Positive !Positive | Negative !Positive | Naught
-------------------------------------------------------------------
......@@ -868,8 +866,6 @@ floatFromPositive (Some w ds)
(2.0# `powerFloat#` int2Float# (highHalfShift ())))
`plusFloat#` int2Float# (word2Int# l)
#endif
{-
Note [Avoid patError]
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment