X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FBase.lhs;h=baf2694b78d37e4cbd860e5e56569f30712eb15d;hb=6b1a36a595eddf1e124529646afdb75c76a9966d;hp=7269c876d4ecb92fe5593aa0d5af87c6cb02375f;hpb=16508b3584d4b65503a06da0745d74eb32ceb264;p=haskell-directory.git

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 7269c87..baf2694 100644
--- a/GHC/Base.lhs
+++ b/GHC/Base.lhs
@@ -496,7 +496,6 @@ otherwise		:: Bool
 otherwise 		=  True
 \end{code}
 
-
 %*********************************************************
 %*							*
 \subsection{The @()@ type}
@@ -731,6 +730,8 @@ breakpoint r = r
 breakpointCond :: Bool -> a -> a
 breakpointCond _ r = r
 
+data Opaque = forall a. O a
+
 -- | Constant function.
 const			:: a -> b -> a
 const x _		=  x