From aba51b65863db5f2687f29d10ba24ffa49dabd3b Mon Sep 17 00:00:00 2001 From: Sylvain Henry Date: Thu, 6 Feb 2020 13:08:37 +0100 Subject: Add arithmetic exception primops (#14664) --- utils/genprimopcode/Main.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'utils/genprimopcode') diff --git a/utils/genprimopcode/Main.hs b/utils/genprimopcode/Main.hs index f7b6ba73dd..7418045e22 100644 --- a/utils/genprimopcode/Main.hs +++ b/utils/genprimopcode/Main.hs @@ -890,6 +890,7 @@ ppType (TyApp (TyCon "MVar#") [x,y]) = "mkMVarPrimTy " ++ ppType x ++ " " ++ ppType y ppType (TyApp (TyCon "TVar#") [x,y]) = "mkTVarPrimTy " ++ ppType x ++ " " ++ ppType y +ppType (TyApp (TyCon "Void#") []) = "voidPrimTy" ppType (TyApp (VecTyCon _ pptc) []) = pptc -- cgit v1.2.1