tilia-0.1.1.0: corpora/vendored/other/cpp/branch-continuing-the-line-before-out.hs

{-# LANGUAGE CPP #-}

module Report.Flush (flush) where

flush :: Bool -> IO ()
flush verbose =
#if defined(TRACE)
  when verbose $
    do
      traceIO "flushing"
      hFlush stdout
#else
  when verbose $
    hFlush stdout
#endif