showUnqualifiedPage is now in Doc.hs.

2013-07-14 17:07:30 +09:00
parent cbcbae052b
commit 1cd83ce2e0
5 changed files with 43 additions and 39 deletions
--- a/Language/Haskell/GhcMod/Info.hs
+++ b/Language/Haskell/GhcMod/Info.hs
@@ -58,7 +58,10 @@ info :: Options
 info opt cradle file modstr expr =
    inModuleContext Info opt cradle file modstr exprToInfo "Cannot show info"
  where
-    exprToInfo = Gap.infoThing expr
+    exprToInfo = do
+        dflag <- getSessionDynFlags
+        sdoc <- Gap.infoThing expr
+        return $ showUnqualifiedPage dflag sdoc

 ----------------------------------------------------------------