[project @ 2001-08-15 15:49:42 by simonmar]

recognise constructors properly

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index d8f4601..0414d7f 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -28,7 +28,7 @@ import HscTypes               ( InteractiveContext(..) )
 import PrelNames       ( iNTERACTIVE )
 import StringBuffer    ( stringToStringBuffer )
 import FastString       ( mkFastString )
-import Char            ( isLower )
+import Char            ( isUpper )
 import DriverUtil      ( split_longest_prefix )
 #endif
 
@@ -630,8 +630,10 @@ hscThing dflags hst hit pcs0 icontext str
                   fmod = mkFastString mod
                   fvar = mkFastString var
                   fstr = mkFastString str
-                  namespaces s | isLower (head s) = [ varName ]
-                               | otherwise        = [ tcClsName, dataName ]
+                  namespaces s 
+                       | isUpper c || c == ':' = [ tcClsName, dataName ]
+                       | otherwise             = [ varName ]
+                       where c = head s
 
        (pcs, unqual, maybe_rn_result) <- 
           renameRdrName dflags hit hst pcs0 scope_mod scope_mod