X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Frts%2Fstorage%2FClosures.h;fp=includes%2Frts%2Fstorage%2FClosures.h;h=5f4f03541f088545160836d58e4ee8ac20e04c53;hb=d0bfe30b668d5be86c00fe3635ef4f4dfe13a1f0;hp=f3929ee36f740b613e5bf70453003e526402284d;hpb=d52d50e40e06d7a74aa7725e7a1a89a0cf2d98a2;p=ghc-hetmet.git

diff --git a/includes/rts/storage/Closures.h b/includes/rts/storage/Closures.h
index f3929ee..5f4f035 100644
--- a/includes/rts/storage/Closures.h
+++ b/includes/rts/storage/Closures.h
@@ -124,7 +124,7 @@ typedef struct {
     StgHeader     header;
     StgClosure   *indirectee;
     StgClosure   *static_link;
-    StgInfoTable *saved_info;
+    const StgInfoTable *saved_info;
 } StgIndStatic;
 
 typedef struct StgBlockingQueue_ {