package convertion perf tweak

zachjs · Feb 22, 2020 · b2504af · b2504af
1 parent 95524c4
commit b2504af
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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