The say package

[Tags:benchmark, library, mit, test]

Please see

[Skip to Readme]


Change log
Dependencies base (>=4.3 && <5), bytestring (>=0.10.4), text (>=1.2), transformers [details]
License MIT
Copyright 2016 FP Complete
Author Michael Snoyman
Category Text
Home page
Source repository head: git clone
Uploaded Thu Nov 17 16:54:22 UTC 2016 by MichaelSnoyman
Distributions LTSHaskell:, NixOS:, Stackage:, Tumbleweed:
Downloads 344 total (67 in the last 30 days)
0 []
Status Docs available [build log]
Last success reported on 2016-11-17 [all 1 reports]
Hackage Matrix CI




Maintainer's Corner

For package maintainers and hackage trustees

Readme for say

Readme for say-


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

Build Status Build status

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]