Util.hs

module Instana.SDK.IntegrationTest.Util
  ( (|>)
  , putStrFlush
  ) where


import           System.IO (hFlush, stdout)


(|>) :: a -> (a -> b) -> b
(|>) =
  flip ($)


putStrFlush :: String -> IO ()
putStrFlush s = do
  putStr s
  hFlush stdout