From 6007a5bc851f62a3b9d9d3e565af1d968d9d975f Mon Sep 17 00:00:00 2001
From: eagletmt <eagletmt@gmail.com>
Date: Wed, 15 Feb 2012 21:22:04 +0900
Subject: [PATCH] types should be displayed in oneline

---
 Info.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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