X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FGHC.hs;h=d34b0f3b5b7a9aeaac6c4f9e0553f07835f7d799;hp=c5740d2ef58eec6fca31e7b71995fe14987ef8d1;hb=85174045bbcc05adb28447d423794d1f087da59e;hpb=dd605e295e2a7ee92dc0511d81ebef4984eacf1e

diff --git a/compiler/main/GHC.hs b/compiler/main/GHC.hs
index c5740d2..d34b0f3 100644
--- a/compiler/main/GHC.hs
+++ b/compiler/main/GHC.hs
@@ -2206,6 +2206,9 @@ sandboxIO thing = do
 foreign import "rts_evalStableIO"  {- safe -}
   rts_evalStableIO :: StablePtr (IO a) -> Ptr (StablePtr a) -> IO CInt
   -- more informative than the C type!
+
+XXX the type of rts_evalStableIO no longer matches the above
+
 -}