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

diff --git a/GHC/Base.lhs b/GHC/Base.lhs
index 7269c87..c590366 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,14 @@ breakpoint r = r
 breakpointCond :: Bool -> a -> a
 breakpointCond _ r = r
 
+data Unknown 
+data Unknown1 a
+data Unknown2 a b
+data Unknown3 a b c
+data Unknown4 a b c d
+
+data Opaque = forall a. O a
+
 -- | Constant function.
 const			:: a -> b -> a
 const x _		=  x