From 3e5c9e3c96276d333a1c0a81858142b34dd7ef88 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Thu, 9 Mar 2023 15:01:40 -0500
Subject: [PATCH] compiler/tc: Use toException instead of SomeException
---
compiler/GHC/Tc/Gen/Splice.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/compiler/GHC/Tc/Gen/Splice.hs b/compiler/GHC/Tc/Gen/Splice.hs
index 4450d743baad..03c8091506fb 100644
--- a/compiler/GHC/Tc/Gen/Splice.hs
+++ b/compiler/GHC/Tc/Gen/Splice.hs
@@ -123,7 +123,7 @@ import GHC.Utils.Panic as Panic
import GHC.Utils.Lexeme
import GHC.Utils.Outputable
import GHC.Utils.Logger
-import GHC.Utils.Exception (throwIO, ErrorCall(..), SomeException(..))
+import GHC.Utils.Exception (throwIO, ErrorCall(..))
import GHC.Utils.TmpFs ( newTempName, TempFileLifetime(..) )
@@ -1269,7 +1269,7 @@ runMeta' show_code ppr_hs run_and_convert expr
fail_with_exn phase exn = do
exn_msg <- liftIO $ Panic.safeShowException exn
failWithTc $ TcRnTHError $ THSpliceFailed $
- SpliceThrewException phase (SomeException exn) exn_msg expr show_code
+ SpliceThrewException phase (toException exn) exn_msg expr show_code
{-
Note [Running typed splices in the zonker]
--
GitLab