better heuristic for what is a package-qualified symbol

Hopefully this will avoid mangling css files embedded in strings inside
spliced code.

1 files changed, 5 insertions, 1 deletions

diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs
index bcffa3866..a8046b994 100644
--- a/Build/EvilSplicer.hs
+++ b/Build/EvilSplicer.hs
@@ -536,7 +536,11 @@ mangleCode = flip_colon
 		void $ char ':'
 		if length s < 5
 			then unexpected "too short to be a namespace"
-			else hstoken
+			else do
+				t <- hstoken
+				case t of
+					(c:r) | isUpper c && "." `isInfixOf` r -> return t
+					_ -> unexpected "not a module qualified symbol"
 
 	hstoken :: Parser String
 	hstoken = do