diff options
| author | Luite Stegeman <stegeman@gmail.com> | 2023-04-20 18:00:38 +0800 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-05-04 14:59:31 -0400 |
| commit | 98c5ee4526d1830beff4203062eb1c8e903db9bb (patch) | |
| tree | 45d7eb5ba2e8f9854d5ba0024a01764085ec0571 | |
| parent | 2d5c1ddecf195da9a8ee4f7b38fbb79d3b680aeb (diff) | |
| download | haskell-98c5ee4526d1830beff4203062eb1c8e903db9bb.tar.gz | |
JavaScript: Correct arguments to h$appendToHsStringA
fixes #23278
| -rw-r--r-- | compiler/GHC/StgToJS/Apply.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 ) |