From: sof Date: Thu, 12 Mar 1998 10:26:19 +0000 (+0000) Subject: [project @ 1998-03-12 10:26:19 by sof] X-Git-Tag: Approx_2487_patches~867 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cccb9a1aead5d225caee75b2c4669de94ce0cc57;p=ghc-hetmet.git [project @ 1998-03-12 10:26:19 by sof] Include srcloc in panic msg --- 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