From 98c5ee4526d1830beff4203062eb1c8e903db9bb Mon Sep 17 00:00:00 2001
From: Luite Stegeman <stegeman@gmail.com>
Date: Thu, 20 Apr 2023 18:00:38 +0800
Subject: JavaScript: Correct arguments to h$appendToHsStringA

fixes #23278
---
 compiler/GHC/StgToJS/Apply.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/GHC/StgToJS/Apply.hs b/compiler/GHC/StgToJS/Apply.hs
index bef12354e6..2a4ec9fd17 100644
--- a/compiler/GHC/StgToJS/Apply.hs
+++ b/compiler/GHC/StgToJS/Apply.hs
@@ -110,7 +110,7 @@ genApp ctx i args
         prof <- csProf <$> getSettings
         let profArg = if prof then [jCafCCS] else []
         a <- genArg x
-        return ( top |= app "h$appendToHsStringA" ([toJExpr d, toJExpr a] ++ profArg)
+        return ( top |= app "h$appendToHsStringA" (toJExpr d : a ++ profArg)
                , ExprInline Nothing
                )
 
-- 
cgit v1.2.1