[haddock @ 2003-11-10 15:15:58 by simonmar]

getReExports: one error case that isn't

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 -> []