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

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 ( ...@@ -30,10 +30,6 @@ module Foreign.Marshal.Error (
import Foreign.Ptr import Foreign.Ptr
#ifdef __HADDOCK__
import Data.Bool
import System.IO.Error
#endif
import GHC.Base import GHC.Base
import GHC.Num import GHC.Num
import GHC.IO.Exception import GHC.IO.Exception
......
...@@ -1204,11 +1204,3 @@ a `iShiftRL#` b | isTrue# (b >=# WORD_SIZE_IN_BITS#) = 0# ...@@ -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 -- 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 @@ ...@@ -19,7 +19,7 @@
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module GHC.ConsoleHandler module GHC.ConsoleHandler
#if !defined(mingw32_HOST_OS) && !defined(__HADDOCK__) #if !defined(mingw32_HOST_OS)
where where
import GHC.Base () -- dummy dependency import GHC.Base () -- dummy dependency
......
...@@ -34,8 +34,6 @@ import GHC.Tuple () ...@@ -34,8 +34,6 @@ import GHC.Tuple ()
import GHC.IntWord64 import GHC.IntWord64
#endif #endif
#if !defined(__HADDOCK__)
data Integer = Positive !Positive | Negative !Positive | Naught data Integer = Positive !Positive | Negative !Positive | Naught
------------------------------------------------------------------- -------------------------------------------------------------------
...@@ -868,8 +866,6 @@ floatFromPositive (Some w ds) ...@@ -868,8 +866,6 @@ floatFromPositive (Some w ds)
(2.0# `powerFloat#` int2Float# (highHalfShift ()))) (2.0# `powerFloat#` int2Float# (highHalfShift ())))
`plusFloat#` int2Float# (word2Int# l) `plusFloat#` int2Float# (word2Int# l)
#endif
{- {-
Note [Avoid patError] 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