Prepare for splitting off ghc-mod-core eventually

core/Language/Haskell/GhcMod/Doc.hs

@@ -0,0 +1,20 @@
+module Language.Haskell.GhcMod.Doc where
+
+import GHC
+import Language.Haskell.GhcMod.Gap (withStyle, showDocWith)
+import Outputable
+import Pretty (Mode(..))
+
+showPage :: DynFlags -> PprStyle -> SDoc -> String
+showPage dflag style = showDocWith dflag PageMode . withStyle dflag style
+
+showOneLine :: DynFlags -> PprStyle -> SDoc -> String
+showOneLine dflag style = showDocWith dflag OneLineMode . withStyle dflag style
+
+getStyle :: GhcMonad m => m PprStyle
+getStyle = do
+    unqual <- getPrintUnqual
+    return $ mkUserStyle unqual AllTheWay
+
+styleUnqualified :: PprStyle
+styleUnqualified = mkUserStyle neverQualify AllTheWay