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

{-# LANGUAGE CPP #-}

module Report.Flush (flush) where

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