Pretty.showDocWith disappeard at GHC 7.7.20140110

This commit is contained in:
Kohei Suzuki
2014-01-14 15:37:16 +09:00
parent 4cb28610ed
commit b51072f5f0
2 changed files with 16 additions and 6 deletions

View File

@@ -26,6 +26,7 @@ module Language.Haskell.GhcMod.Gap (
#else
, module Pretty
#endif
, showDocWith
) where
import Control.Applicative hiding (empty)
@@ -110,6 +111,15 @@ setLogAction df f =
df { log_action = f df }
#endif
showDocWith :: DynFlags -> Pretty.Mode -> Pretty.Doc -> String
#if __GLASGOW_HASKELL__ >= 707
-- Pretty.showDocWith disappeard.
-- https://github.com/ghc/ghc/commit/08a3536e4246e323fbcd8040e0b80001950fe9bc
showDocWith dflags mode = Pretty.showDoc mode (pprCols dflags)
#else
showDocWith _ = Pretty.showDocWith
#endif
----------------------------------------------------------------
----------------------------------------------------------------