Skip to content
Snippets Groups Projects
Commit bb40244e authored by Sylvain Henry's avatar Sylvain Henry Committed by Marge Bot
Browse files

JS: fix allocation constant (fix #24746)

parent 0e679e37
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
compiler/GHC/StgToJS/CodeGen.hs
+ 1
− 1
View file @ bb40244e
......@@ -95,7 +95,7 @@ stgToJS logger config stg_binds0 this_mod spt_entries foreign_stubs cccs output_
$ vcat (fmap (jsToDoc . oiStat . luObjBlock) lus)
-- Write the object file
bh <- openBinMem (4 * 1024 * 1000) -- a bit less than 4kB
bh <- openBinMem (4 * 1000) -- a bit less than 4kB
Object.putObject bh (moduleName this_mod) deps (map luObjBlock lus)
createDirectoryIfMissing True (takeDirectory output_fn)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment