X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsMeta.hs;h=c08a640a30449c458c6838044a16fbdaa5d00455;hb=e232133830612212e350bf97d47be92772752902;hp=af6797975704abe2d59e35b180d0f59dfa50e5c5;hpb=c073f23aba6d88a9479a20ccb53bb98a338638db;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index af67979..c08a640 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -1726,7 +1726,7 @@ templateHaskellNames = [
     varStrictTypeName,
     -- Type
     forallTName, varTName, conTName, appTName,
-    tupleTName, arrowTName, listTName, sigTName,
+    tupleTName, unboxedTupleTName, arrowTName, listTName, sigTName,
     -- TyVarBndr
     plainTVName, kindedTVName,
     -- Kind
@@ -2191,23 +2191,23 @@ funDIdKey, valDIdKey, dataDIdKey, newtypeDIdKey, tySynDIdKey,
     classDIdKey, instanceDIdKey, sigDIdKey, forImpDIdKey, pragInlDIdKey,
     pragSpecDIdKey, pragSpecInlDIdKey, familyNoKindDIdKey, familyKindDIdKey,
     dataInstDIdKey, newtypeInstDIdKey, tySynInstDIdKey :: Unique 
-funDIdKey         = mkPreludeMiscIdUnique 272
-valDIdKey         = mkPreludeMiscIdUnique 273
-dataDIdKey        = mkPreludeMiscIdUnique 274
-newtypeDIdKey     = mkPreludeMiscIdUnique 275
-tySynDIdKey       = mkPreludeMiscIdUnique 276
-classDIdKey       = mkPreludeMiscIdUnique 277
-instanceDIdKey    = mkPreludeMiscIdUnique 278
-sigDIdKey         = mkPreludeMiscIdUnique 279
-forImpDIdKey      = mkPreludeMiscIdUnique 297
-pragInlDIdKey     = mkPreludeMiscIdUnique 348
-pragSpecDIdKey    = mkPreludeMiscIdUnique 349
-pragSpecInlDIdKey = mkPreludeMiscIdUnique 352
-familyNoKindDIdKey= mkPreludeMiscIdUnique 340
-familyKindDIdKey  = mkPreludeMiscIdUnique 353
-dataInstDIdKey    = mkPreludeMiscIdUnique 341
-newtypeInstDIdKey = mkPreludeMiscIdUnique 342
-tySynInstDIdKey   = mkPreludeMiscIdUnique 343
+funDIdKey          = mkPreludeMiscIdUnique 272
+valDIdKey          = mkPreludeMiscIdUnique 273
+dataDIdKey         = mkPreludeMiscIdUnique 274
+newtypeDIdKey      = mkPreludeMiscIdUnique 275
+tySynDIdKey        = mkPreludeMiscIdUnique 276
+classDIdKey        = mkPreludeMiscIdUnique 277
+instanceDIdKey     = mkPreludeMiscIdUnique 278
+sigDIdKey          = mkPreludeMiscIdUnique 279
+forImpDIdKey       = mkPreludeMiscIdUnique 297
+pragInlDIdKey      = mkPreludeMiscIdUnique 348
+pragSpecDIdKey     = mkPreludeMiscIdUnique 349
+pragSpecInlDIdKey  = mkPreludeMiscIdUnique 352
+familyNoKindDIdKey = mkPreludeMiscIdUnique 340
+familyKindDIdKey   = mkPreludeMiscIdUnique 353
+dataInstDIdKey     = mkPreludeMiscIdUnique 341
+newtypeInstDIdKey  = mkPreludeMiscIdUnique 342
+tySynInstDIdKey    = mkPreludeMiscIdUnique 343
 
 -- type Cxt = ...
 cxtIdKey :: Unique