module GHC.SourceGen.Pretty
( showPpr
, putPpr
, hPutPpr
) where
import DynFlags
import GhcMonad
import Outputable
import System.IO
hPutPpr :: Outputable a => Handle -> a -> Ghc ()
hPutPpr :: Handle -> a -> Ghc ()
hPutPpr Handle
h a
x = do
DynFlags
dflags <- Ghc DynFlags
forall (m :: * -> *). HasDynFlags m => m DynFlags
getDynFlags
IO () -> Ghc ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> Ghc ()) -> IO () -> Ghc ()
forall a b. (a -> b) -> a -> b
$ DynFlags -> Handle -> PrintUnqualified -> SDoc -> IO ()
printForUser DynFlags
dflags Handle
h PrintUnqualified
neverQualify (SDoc -> IO ()) -> SDoc -> IO ()
forall a b. (a -> b) -> a -> b
$ a -> SDoc
forall a. Outputable a => a -> SDoc
ppr a
x
putPpr :: Outputable a => a -> Ghc ()
putPpr :: a -> Ghc ()
putPpr = Handle -> a -> Ghc ()
forall a. Outputable a => Handle -> a -> Ghc ()
hPutPpr Handle
stdout