aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorsimonmar <unknown>2003-11-10 15:15:58 +0000
committersimonmar <unknown>2003-11-10 15:15:58 +0000
commita7c2430b34dd69641a7a1ed734511649ac01432f (patch)
tree7a2bc438d9ecf2f5f095cf187bf0bee7e113ce55
parent31c8437b7611229041cb837fc1fca4c17ef0d23c (diff)
[haddock @ 2003-11-10 15:15:58 by simonmar]
getReExports: one error case that isn't
-rw-r--r--src/Main.hs2
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 -> []