diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-03 13:22:52 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-03 13:22:52 +0100 |
| commit | b926bd65c66ed4018101531eacf5bb7c3068c624 (patch) | |
| tree | e9262b3b9ed4d3fbb72aa41e0d9a497407629f88 /ghc/GhciMonad.hs | |
| parent | 1f56b6cc076968d7d20bd960332443875d445153 (diff) | |
| download | haskell-b926bd65c66ed4018101531eacf5bb7c3068c624.tar.gz | |
Follow changes to HValue/Any handling
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.
Diffstat (limited to 'ghc/GhciMonad.hs')
| -rw-r--r-- | ghc/GhciMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GhciMonad.hs b/ghc/GhciMonad.hs index d7d5b447be..66b3c05b44 100644 --- a/ghc/GhciMonad.hs +++ b/ghc/GhciMonad.hs @@ -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) |