diff options
| author | simonmar <unknown> | 2003-11-10 15:15:58 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-11-10 15:15:58 +0000 |
| commit | a7c2430b34dd69641a7a1ed734511649ac01432f (patch) | |
| tree | 7a2bc438d9ecf2f5f095cf187bf0bee7e113ce55 /src/Main.hs | |
| parent | 31c8437b7611229041cb837fc1fca4c17ef0d23c (diff) | |
[haddock @ 2003-11-10 15:15:58 by simonmar]
getReExports: one error case that isn't
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 1f9eb494..f670a932 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -833,7 +833,7 @@ getReExports mdl mod_map exported exported_visible where invisible_names = [ n | n <- exported, n `notElem` exported_visible ] - get_name (UnQual _) = error "getReExports" + get_name (UnQual _) = [] get_name (Qual m n) = case lookupFM mod_map m of Nothing -> [] |