From d9e5b50e9855867844e94c2a6619ce71c6679e8d Mon Sep 17 00:00:00 2001
From: Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io>
Date: Mon, 28 Jun 2021 18:32:45 +0200
Subject: Test for dead code

---
 compiler/GHC/HsToCore/Foreign/Call.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/GHC/HsToCore/Foreign/Call.hs b/compiler/GHC/HsToCore/Foreign/Call.hs
index 80f878ef02..447e4adb8b 100644
--- a/compiler/GHC/HsToCore/Foreign/Call.hs
+++ b/compiler/GHC/HsToCore/Foreign/Call.hs
@@ -228,7 +228,7 @@ boxResult result_ty
                 = case res of
                      (Just ty,_)
                        | isUnboxedTupleType ty
-                       -> let Just ls = tyConAppArgs_maybe ty in tail ls
+                       -> pprPanic "unboxed" (ppr ty)
                      _ -> []
 
               return_result state anss
-- 
cgit v1.2.1