From ca667fbb075937921001df7dd60b80b5833e38ad Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 29 Jul 2002 09:11:04 +0000
Subject: [PATCH] [project @ 2002-07-29 09:11:04 by simonpj] More informative
 crash in rdrNameModule

---
 ghc/compiler/basicTypes/RdrName.lhs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4