Shows info about all names in module (not exported too)

This commit is contained in:
mvoidex 2013-03-30 11:56:59 +04:00 committed by Kazu Yamamoto
parent b87a1e0e39
commit f7dd44d291
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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