hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
GHCApi.hs
View File

@ -70,7 +70,7 @@ initSession opt cmdOpts idirs mDepPkgs logging = do
where where
setupDynamicFlags df0 = do setupDynamicFlags df0 = do
df1 <- modifyFlagsWithOpts df0 cmdOpts df1 <- modifyFlagsWithOpts df0 cmdOpts
let fast = True let fast = False
let df2 = modifyFlags df1 idirs mDepPkgs fast (expandSplice opt) let df2 = modifyFlags df1 idirs mDepPkgs fast (expandSplice opt)
df3 <- modifyFlagsWithOpts df2 $ ghcOpts opt df3 <- modifyFlagsWithOpts df2 $ ghcOpts opt
liftIO $ setLogger logging df3 liftIO $ setLogger logging df3

2
Info.hs
View File

@ -37,7 +37,7 @@ type ModuleString = String
infoExpr :: Options -> Cradle -> ModuleString -> Expression -> FilePath -> IO String infoExpr :: Options -> Cradle -> ModuleString -> Expression -> FilePath -> IO String
infoExpr opt cradle modstr expr file = (++ "\n") <$> info opt cradle file modstr expr 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 = info opt cradle fileName modstr expr =
inModuleContext opt cradle fileName modstr exprToInfo "Cannot show info" inModuleContext opt cradle fileName modstr exprToInfo "Cannot show info"
where where