diff options
Diffstat (limited to 'ghc')
| -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) |