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 eab46af..7e1bc0e 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
 
-- 
1.7.10.4