diff options
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 |