showUnqualifiedPage is now in Doc.hs.

This commit is contained in:
Kazu Yamamoto
2013-07-14 17:07:30 +09:00
parent cbcbae052b
commit 1cd83ce2e0
5 changed files with 43 additions and 39 deletions

View File

@@ -6,7 +6,7 @@ import Data.List
import Data.Maybe (fromMaybe)
import DataCon (dataConRepType)
import GHC
import qualified Language.Haskell.GhcMod.Gap as Gap
import Language.Haskell.GhcMod.Doc (showUnqualifiedPage)
import Language.Haskell.GhcMod.GHCApi
import Language.Haskell.GhcMod.Types
import Name
@@ -102,4 +102,4 @@ removeForAlls' ty (Just (pre, ftype))
| otherwise = ty
showOutputable :: Outputable a => DynFlags -> a -> String
showOutputable dflag = unwords . lines . Gap.showUnqualifiedPage dflag . ppr
showOutputable dflag = unwords . lines . showUnqualifiedPage dflag . ppr