Commit ca667fbb authored by simonpj's avatar simonpj

[project @ 2002-07-29 09:11:04 by simonpj]

More informative crash in rdrNameModule
parent 535dd8ed
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment