From: simonpj <unknown>
Date: Mon, 29 Jul 2002 09:11:04 +0000 (+0000)
Subject: [project @ 2002-07-29 09:11:04 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1797
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ca667fbb075937921001df7dd60b80b5833e38ad;p=ghc-hetmet.git

[project @ 2002-07-29 09:11:04 by simonpj]
More informative crash in rdrNameModule
---

diff --git a/ghc/compiler/basicTypes/RdrName.lhs b/ghc/compiler/basicTypes/RdrName.lhs
index 6903e6c..4110528 100644
--- a/ghc/compiler/basicTypes/RdrName.lhs
+++ b/ghc/compiler/basicTypes/RdrName.lhs
@@ -81,6 +81,7 @@ data Qual
 rdrNameModule :: RdrName -> ModuleName
 rdrNameModule (RdrName (Qual m) _) = m
 rdrNameModule (RdrName (Orig m) _) = m
+rdrNameModule n			   = pprPanic "rdrNameModule" (ppr n)
 
 rdrNameOcc :: RdrName -> OccName
 rdrNameOcc (RdrName _ occ) = occ