Outputable.hs

{-# LANGUAGE CPP #-}
module CLaSH.GHC.Compat.Outputable
  ( showPpr, showSDoc )
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)

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

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