hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge pull request #46 from eagletmt/display-oneline

Browse Source 
Types should be displayed in oneline
This commit is contained in:
Kazu Yamamoto 2012-02-15 17:59:19 -08:00
commit d373966625
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Info.hs
View File

@ -20,6 +20,7 @@ import HscTypes
import NameSet import NameSet
import Outputable import Outputable
import PprTyThing import PprTyThing
import Pretty (showDocWith, Mode(OneLineMode))
import System.Time import System.Time
import TcRnTypes import TcRnTypes
import Types import Types
@ -93,7 +94,7 @@ getType tcm e = do
ty_env = tcg_type_env $ fst $ tm_internals_ tcm ty_env = tcg_type_env $ fst $ tm_internals_ tcm
pretty :: Type -> String pretty :: Type -> String
pretty = showSDocForUser neverQualify . pprTypeForUser False pretty = showDocWith OneLineMode . withPprStyleDoc (mkUserStyle neverQualify AllTheWay) . pprTypeForUser False
---------------------------------------------------------------- ----------------------------------------------------------------
-- from ghc/InteractiveUI.hs -- from ghc/InteractiveUI.hs