From a7c2430b34dd69641a7a1ed734511649ac01432f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 10 Nov 2003 15:15:58 +0000
Subject: [haddock @ 2003-11-10 15:15:58 by simonmar] getReExports: one error
 case that isn't

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Main.hs')

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 -> []
-- 
cgit v1.2.3