diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-05-27 20:12:16 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-05-27 20:12:16 -0400 |
| commit | 62a2f91977f8efd0ad3ea7e5e3732656f58a2e17 (patch) | |
| tree | 157abd77d64d690917047ecc8299d2311b27326a /Build/EvilSplicer.hs | |
| parent | 7f01ceb220452f6ffc6dadd8ab5466c4c47b8d5d (diff) | |
better heuristic for what is a package-qualified symbol
Hopefully this will avoid mangling css files embedded in strings inside
spliced code.
Diffstat (limited to 'Build/EvilSplicer.hs')
| -rw-r--r-- | Build/EvilSplicer.hs | 6 |
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 |