-----------------------------------------------------------------------------
-- |
-- Module      :  GHC.GHCi.Helpers
-- Copyright   :  (c) The GHC Developers
-- License     :  see libraries/base/LICENSE
--
-- Maintainer  :  cvs-ghc@haskell.org
-- Stability   :  internal
-- Portability :  non-portable (GHC Extensions)
--
-- Various helpers used by the GHCi shell.
--
-----------------------------------------------------------------------------

module GHC.GHCi.Helpers
  ( disableBuffering, flushAll
  , evalWrapper
  ) where

import System.IO
import System.Environment

disableBuffering :: IO ()
disableBuffering :: IO ()
disableBuffering = do
  Handle -> BufferMode -> IO ()
hSetBuffering Handle
stdin BufferMode
NoBuffering
  Handle -> BufferMode -> IO ()
hSetBuffering Handle
stdout BufferMode
NoBuffering
  Handle -> BufferMode -> IO ()
hSetBuffering Handle
stderr BufferMode
NoBuffering

flushAll :: IO ()
flushAll :: IO ()
flushAll = do
  Handle -> IO ()
hFlush Handle
stdout
  Handle -> IO ()
hFlush Handle
stderr

evalWrapper :: String -> [String] -> IO a -> IO a
evalWrapper :: forall a. String -> [String] -> IO a -> IO a
evalWrapper String
progName [String]
args IO a
m =
  String -> IO a -> IO a
forall a. String -> IO a -> IO a
withProgName String
progName ([String] -> IO a -> IO a
forall a. [String] -> IO a -> IO a
withArgs [String]
args IO a
m)