shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Only unqualify strings that start with an uppercase letter.

--- a/src/MicroHs/Ident.hs

+++ b/src/MicroHs/Ident.hs

@@ -81,7 +81,7 @@

                 String -> String

 unQualString [] = ""

 unQualString s@(c:_) =

-  if isIdentChar c then

+  if isUpper c then

     case dropWhile (/= '.') s of

       "" -> s

       '.':r -> unQualString r

-- 

⑨