X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FPrims.hs;h=5193848cbf9d5df3a28702935b0be76783b1a90f;hp=43c687ca309c4cad9ac430902e979618a0492dd3;hb=8bfeb25ae78e99c7014113468b0057342db4208f;hpb=044805225a08d5e370b72d2efed66880912b0806

diff --git a/utils/ext-core/Prims.hs b/utils/ext-core/Prims.hs
index 43c687c..5193848 100644
--- a/utils/ext-core/Prims.hs
+++ b/utils/ext-core/Prims.hs
@@ -29,13 +29,11 @@ primEnv = Envs {tcenv_=efromlist $ map (\ (t,k) -> (t,Kind k)) $
                    (snd tcMutableByteArrayzh, ktMutableByteArrayzh)] ++
                  ([(snd $ tcUtuple n, ktUtuple n) | n <- [1..maxUtuple]] 
                    ++ ((snd tcArrow,ktArrow):primTcs)),
-		tsenv_=eempty,
 		cenv_=efromlist primDcs,
 		venv_=efromlist (newPrimVars ++ opsState ++ primVals)}
 
 errorEnv :: Envs
 errorEnv = Envs {tcenv_=eempty,
-		 tsenv_=eempty,
 		 cenv_=eempty,
 		 venv_=efromlist errorVals}