From cccb9a1aead5d225caee75b2c4669de94ce0cc57 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 12 Mar 1998 10:26:19 +0000
Subject: [PATCH] [project @ 1998-03-12 10:26:19 by sof] Include srcloc in
panic msg
---
ghc/compiler/deSugar/DsCCall.lhs | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/ghc/compiler/deSugar/DsCCall.lhs b/ghc/compiler/deSugar/DsCCall.lhs
index eab46af4e0c0..7e1bc0e3c20e 100644
--- a/ghc/compiler/deSugar/DsCCall.lhs
+++ b/ghc/compiler/deSugar/DsCCall.lhs
@@ -156,7 +156,8 @@ unboxArg arg
)
| otherwise
- = pprPanic "unboxArg: " (ppr arg_ty)
+ = getSrcLocDs `thenDs` \ l ->
+ pprPanic "unboxArg: " (ppr l <+> ppr arg_ty)
where
arg_ty = coreExprType arg
--
GitLab