@@ -22,6 +22,7 @@ import Data.Maybe (fromMaybe)
2222import Data.Text (Text)
2323import qualified Data.Text as T
2424import GHC
25+import GHC.DynFlags (baseDynFlags)
2526import qualified Outputable as GHC
2627
2728-- | Combine all source spans from the given list.
@@ -38,7 +39,7 @@ notImplemented msg = error $ "not implemented yet: " ++ msg
3839
3940-- | Pretty-print an 'GHC.Outputable' thing.
4041showOutputable :: GHC.Outputable o => o -> String
41−showOutputable = GHC.showSDocUnsafe . GHC.ppr
42+showOutputable = GHC.showSDoc baseDynFlags . GHC.ppr
4243
4344-- | Split and normalize a doc string. The result is a list of lines that
4445-- make up the comment.