Outputable.hs

{-# LANGUAGE CPP #-}
module CLaSH.GHC.Compat.Outputable
  ( showPpr, showSDoc, showPprDebug )
where

#if __GLASGOW_HASKELL__ >= 707
import qualified DynFlags   (unsafeGlobalDynFlags)
#elif __GLASGOW_HASKELL__ >= 706
import qualified DynFlags   (tracingDynFlags)
#endif
import qualified Outputable (Outputable (..), SDoc, showPpr, showSDoc, showSDocDebug)

showSDoc :: Outputable.SDoc -> String
#if __GLASGOW_HASKELL__ >= 707
showSDoc = Outputable.showSDoc DynFlags.unsafeGlobalDynFlags
#endif

showPprDebug :: Outputable.Outputable a => a -> String
showPprDebug = Outputable.showSDocDebug DynFlags.unsafeGlobalDynFlags . Outputable.ppr

showPpr :: (Outputable.Outputable a) => a -> String
#if __GLASGOW_HASKELL__ >= 707
showPpr = Outputable.showPpr DynFlags.unsafeGlobalDynFlags
#elif __GLASGOW_HASKELL__ >= 706
showPpr = Outputable.showPpr DynFlags.tracingDynFlags
#else
showPpr = Outputable.showPpr
#endif