From f7dd44d291476f1eeb863251c319a35cb5393889 Mon Sep 17 00:00:00 2001
From: mvoidex <voidex@live.com>
Date: Sat, 30 Mar 2013 11:56:59 +0400
Subject: [PATCH] Shows info about all names in module (not exported too)

---
 GHCApi.hs | 2 +-
 Info.hs   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHCApi.hs b/GHCApi.hs
index d3eee88..52a430b 100644
--- a/GHCApi.hs
+++ b/GHCApi.hs
@@ -70,7 +70,7 @@ initSession opt cmdOpts idirs mDepPkgs logging = do
   where
     setupDynamicFlags df0 = do
         df1 <- modifyFlagsWithOpts df0 cmdOpts
-        let fast = True
+        let fast = False
         let df2 = modifyFlags df1 idirs mDepPkgs fast (expandSplice opt)
         df3 <- modifyFlagsWithOpts df2 $ ghcOpts opt
         liftIO $ setLogger logging df3
diff --git a/Info.hs b/Info.hs
index f65cec7..65fc0d0 100644
--- a/Info.hs
+++ b/Info.hs
@@ -37,7 +37,7 @@ type ModuleString = String
 infoExpr :: Options -> Cradle -> ModuleString -> Expression -> FilePath -> IO String
 infoExpr opt cradle modstr expr file = (++ "\n") <$> info opt cradle file modstr expr
 
-info :: Options -> Cradle -> FilePath -> ModuleString -> FilePath -> IO String
+info :: Options -> Cradle -> FilePath -> ModuleString -> Expression -> IO String
 info opt cradle fileName modstr expr =
     inModuleContext opt cradle fileName modstr exprToInfo "Cannot show info"
   where