@@ -61,7 +61,7 @@ captureMonadState = control $ \run -> run (return $ RunInIO run)
61-- exception handler.
61-- exception handler.
62{-# INLINE rawForkIO #-}
62{-# INLINE rawForkIO #-}
63rawForkIO :: IO () -> IO ThreadId
63rawForkIO :: IO () -> IO ThreadId
64−rawForkIO action = IO $ \ s ->
64+rawForkIO (IO action) = IO $ \ s ->
65 case fork# action s of (# s1, tid #) -> (# s1, ThreadId tid #)
65 case fork# action s of (# s1, tid #) -> (# s1, ThreadId tid #)
67-- | Fork a thread to run the given computation, installing the provided
67-- | Fork a thread to run the given computation, installing the provided