Commit a27ef0b1 authored by simonmar's avatar simonmar

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

recognise constructors properly
parent c137d282
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment