diff options
| author | simonpj@microsoft.com <unknown> | 2010-05-06 16:38:13 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-05-06 16:38:13 +0000 |
| commit | dcad0717256d926dcc3ff35e9752a2e9fba70faa (patch) | |
| tree | e5c8885830383501b624be49772bd6d6a6047edf /compiler | |
| parent | 241c6ba59c89d491aa4087f754dfcbbca26163f4 (diff) | |
| download | haskell-dcad0717256d926dcc3ff35e9752a2e9fba70faa.tar.gz | |
Make a missing name in mkUsageInfo into a panic
We really want to know about this!
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/iface/MkIface.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index ce6f4a30ab..8849b1e97d 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -855,7 +855,7 @@ mk_usage_info pit hsc_env this_mod direct_imports used_names | isWiredInName name = mv_map -- ignore wired-in names | otherwise = case nameModule_maybe name of - Nothing -> pprTrace "mkUsageInfo: internal name?" (ppr name) mv_map + Nothing -> pprPanic "mkUsageInfo: internal name?" (ppr name) Just mod -> -- We use this fiddly lambda function rather than -- (++) as the argument to extendModuleEnv_C to -- avoid quadratic behaviour (trac #2680) |