module HIndent.Pretty.Combinators.Outputable
( output
, showOutputable
) where
import GHC.Driver.Ppr
import GHC.Driver.Session
import GHC.Stack
import GHC.Utils.Outputable
import HIndent.Pretty.Combinators.String
import HIndent.Printer
import Language.Haskell.GhclibParserEx.GHC.Settings.Config
output :: (HasCallStack, Outputable a) => a -> Printer ()
output :: forall a. (HasCallStack, Outputable a) => a -> Printer ()
output = HasCallStack => String -> Printer ()
String -> Printer ()
string (String -> Printer ()) -> (a -> String) -> a -> Printer ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. a -> String
forall a. Outputable a => a -> String
showOutputable
showOutputable :: Outputable a => a -> String
showOutputable :: forall a. Outputable a => a -> String
showOutputable = DynFlags -> a -> String
forall a. Outputable a => DynFlags -> a -> String
showPpr DynFlags
dynFlags
dynFlags :: DynFlags
dynFlags :: DynFlags
dynFlags = Settings -> LlvmConfig -> DynFlags
defaultDynFlags Settings
fakeSettings LlvmConfig
fakeLlvmConfig