Commit 21cdfe5f authored by Matthew Pickering's avatar Matthew Pickering Committed by Ben Gamari
Browse files

Add NOINLINE pragma to hPutStr'

There appears to be no benefit in inlining this function.
If you turn up the unfolding threshold a lot then it eventually
inlines which produces a bit unoptimisable program.

Reviewers: hvr, bgamari

Reviewed By: bgamari

Subscribers: rwbarton, thomie, carter

Differential Revision:
parent 00d71323
......@@ -537,6 +537,7 @@ hPutStrLn handle str = hPutStr' handle str True
-- overhead of a single putChar '\n', which is quite high now that we
-- have to encode eagerly.
{-# NOINLINE hPutStr' #-}
hPutStr' :: Handle -> String -> Bool -> IO ()
hPutStr' handle str add_nl =
Markdown is supported
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