say: Send textual messages to a Handle in a thread-friendly way

say

Send textual messages to a Handle in a thread-friendly way.

The motivation for this package is described in a blog post on Haskell's Missing Concurrency Basics. The simple explanation is, when writing a line of textual data to a Handle - such as sending some messages t o ther terminal - we'd like to have the following properties:

• Properly handle character encoding settings on the Handle
• For reasonably sized messages, ensure that the entire message is written in one chunk to avoid interleaving data with other threads
  • This includes the trailing newline character
• Avoid unnecessary memory allocations and copies
• Minimize locking
• Provide a simple API

On the last point: for the most part, you can make the following substitutions in your API usage:

• Replace putStrLn with say
• Replace print with sayShow
• If you're using a String instead of Text, replace putStrLn with sayString

In addition, sayErr, sayErrString and sayErrShow work on standard error instead, and hSay, hSayString and hSayShow work on arbitrary Handles.

#!/usr/bin/env stack
-- stack --install-ghc --resolver lts-6.23 runghc --package async --package say
import Control.Concurrent.Async (mapConcurrently)
import Control.Monad            (forM_, void)
import Say                      (sayString)

worker :: Int -> IO ()
worker ident = forM_ [1..1000] $ \msg -> sayString $ concat
    [ "Hello, I am worker #"
    , show ident
    , ", and this is message #"
    , show msg
    ]

main :: IO ()
main = void $ mapConcurrently worker [1..100]