X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=utils%2Fext-core%2FLanguage%2FCore%2FPrimEnv.hs;h=a7c1f1b7ba2929dc72e27d60a659f51f0218cc79;hb=e6232609a0b08ff7136a479f2e2d7d2be5040b1d;hp=ed366689167fb6a1472dae7f0ad543a0c0c25f00;hpb=b84b5969798530dbf5be9b8bb795b77e5dfbf042;p=ghc-hetmet.git

diff --git a/utils/ext-core/Language/Core/PrimEnv.hs b/utils/ext-core/Language/Core/PrimEnv.hs
index ed36668..a7c1f1b 100644
--- a/utils/ext-core/Language/Core/PrimEnv.hs
+++ b/utils/ext-core/Language/Core/PrimEnv.hs
@@ -17,9 +17,9 @@ primTcs = [
       (zEncodeString "Double#", Kunlifted),
       (zEncodeString "Float#", Kunlifted),
       (zEncodeString "Array#", (Karrow Klifted Kunlifted)),
-      (zEncodeString "MutArr#", (Karrow Klifted (Karrow Klifted Kunlifted))),
-      (zEncodeString "ByteArr#", Kunlifted),
-      (zEncodeString "MutByteArr#", (Karrow Klifted Kunlifted)),
+      (zEncodeString "MutableArray#", (Karrow Klifted (Karrow Klifted Kunlifted))),
+      (zEncodeString "ByteArray#", Kunlifted),
+      (zEncodeString "MutableByteArray#", (Karrow Klifted Kunlifted)),
       (zEncodeString "Addr#", Kunlifted),
       (zEncodeString "MutVar#", (Karrow Klifted (Karrow Klifted Kunlifted))),
       (zEncodeString "TVar#", (Karrow Klifted (Karrow Klifted Kunlifted))),