[project @ 2003-09-05 17:36:40 by ross]

[ghc-base.git] / GHC / Base.lhs

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index f957a6d..1d786bb 100644 (file)
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -991,3 +991,12 @@ unpackNBytes#  addr len# = unpack [] (len# -# 1#)
 
   #-}
 \end{code}
+
+#ifdef __HADDOCK__
+\begin{code}
+-- | A placeholder argument for the 'Control.Monad.ST.ST' type constructor,
+-- to mark a state embedded in the 'Prelude.IO' monad by
+-- 'Control.Monad.ST.stToIO'.
+data RealWorld
+\end{code}
+#endif