types should be displayed in oneline
This commit is contained in:
parent
c2e7f00820
commit
6007a5bc85
3
Info.hs
3
Info.hs
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user