package convertion perf tweak

2020-02-21 21:17:47 -05:00 · 2020-02-21 21:17:47 -05:00 · b2504afe71
parent 95524c46ad
commit b2504afe71
1 changed files with 1 additions and 1 deletions
--- a/src/Convert/Package.hs
+++ b/src/Convert/Package.hs
@ -84,7 +84,7 @@ prefixPackageItem packageName idents item =
        prefix :: Identifier -> Identifier
        prefix x =
            if Set.member x idents
-                then packageName ++ "_" ++ x
+                then packageName ++ '_' : x
                else x
        item' = case item of
            Function       a b x c d  -> Function       a b (prefix x) c d