Change a use of xargs to "$(XARGS)" $(XARGS_OPTS)

[ghc-hetmet.git] / utils / ext-core / Language / Core / Prims.hs

diff --git a/utils/ext-core/Language/Core/Prims.hs b/utils/ext-core/Language/Core/Prims.hs
index 181977b..69e0cb9 100644 (file)
--- a/utils/ext-core/Language/Core/Prims.hs
+++ b/utils/ext-core/Language/Core/Prims.hs
@@ -7,7 +7,7 @@
 module Language.Core.Prims(initialEnv, primEnv, primId, bv,
              tIntzh, tInt64zh, tCharzh, tFloatzh, tAddrzh, tDoublezh, tcStatezh,
              tWordzh, tWord64zh, tByteArrayzh,
-             tcStablePtrzh, tcIO, mkInitialEnv, mkTypeEnv, tRWS, tBool,
+             tcStablePtrzh, tcIO, mkInitialEnv, mkTypeEnv, tRWS, tBool, tcBool,
              ioBaseMname) where
 
 import Control.Monad
@@ -99,12 +99,15 @@ tStatezh t = Tapp (Tcon tcStatezh) t
 
 {- Properly defined in PrelError, but needed in many modules before that. -}
 errorVals :: [(Var, Ty)]
-errorVals = [
+errorVals = []
+{-
+ [
  ("error", Tforall ("a",Kopen) (tArrow tString (Tvar "a"))),
  ("irrefutPatError", str2A),
  ("patError", str2A),
  ("divZZeroError", forallAA),
  ("overflowError", forallAA)]
+-}
 
 {- Non-primitive, but mentioned in the types of primitives. -}