primPkg = P $ zEncodeString "ghc-prim"
ghcPrefix = ["GHC"]
mainPrefix = []
-baseMname = mkBaseMname "Base"
+baseMname = error "Somebody called baseMname!" -- mkBaseMname "Base"
boolMname = mkPrimMname "Bool"
mainVar = qual mainMname "main"
wrapperMainVar = qual wrapperMainMname "main"
flattenBinds (Nonrec vd : binds) = vd : flattenBinds binds
flattenBinds (Rec prs1 : binds) = prs1 ++ flattenBinds binds
flattenBinds [] = []
+
+unitMname :: AnMname
+unitMname = mkPrimMname "Unit"
{- 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. -}