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