Follow changes to HValue/Any handling
authorIan Lynagh <igloo@earth.li>
Mon, 3 Oct 2011 12:22:52 +0000 (13:22 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 3 Oct 2011 12:22:52 +0000 (13:22 +0100)
Also removed the type argument to Any in primops.txt.pp. I don't
see why we need it, and it now breaks haddocking GHC.Prim.

compiler/prelude/primops.txt.pp
ghc/GhciMonad.hs

index 09d2dd3..5d53713 100644 (file)
@@ -1849,7 +1849,7 @@ pseudoop   "lazy"
 
        Like {\tt seq}, the argument of {\tt lazy} can have an unboxed type. }
 
-primtype Any a
+primtype Any
        { The type constructor {\tt Any} is type to which you can unsafely coerce any
        lifted type, and back. 
 
index d7d5b44..66b3c05 100644 (file)
@@ -373,4 +373,4 @@ turnOffBuffering
 getHandle :: IORef (Ptr ()) -> IO Handle
 getHandle ref = do
   (Ptr addr) <- readIORef ref
-  case addrToHValue# addr of (# hval #) -> return (unsafeCoerce# hval)
+  case addrToAny# addr of (# hval #) -> return (unsafeCoerce# hval)