diff options
| author | simonpj@microsoft.com <unknown> | 2009-11-09 10:37:26 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-11-09 10:37:26 +0000 |
| commit | d2241e6301bf56acf89ffd0d78922b90a58dafb1 (patch) | |
| tree | 5c6d908ae4fb6604181d213468dc1d44d183aa1b /compiler | |
| parent | ec73f013e4ec09a741a69bf50b78ecaf1fe0835f (diff) | |
| download | haskell-d2241e6301bf56acf89ffd0d78922b90a58dafb1.tar.gz | |
Augment panic message
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 2c106b0a1a..0bfdae7b1d 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -399,7 +399,7 @@ addFingerprints hsc_env mb_old_fingerprint iface0 new_decls , let out = localOccs $ freeNamesDeclABI abi ] - name_module n = ASSERT( isExternalName n ) nameModule n + name_module n = ASSERT2( isExternalName n, ppr n ) nameModule n localOccs = map (getUnique . getParent . getOccName) . filter ((== this_mod) . name_module) . nameSetToList |