-l for ghc-modi info.

This commit is contained in:
Kazu Yamamoto 2014-04-21 09:45:41 +09:00
parent e09b406ee8
commit 756d17eaa2
2 changed files with 7 additions and 6 deletions

View File

@ -38,17 +38,18 @@ infoExpr :: Options
-> Expression -- ^ A Haskell expression.
-> IO String
infoExpr opt cradle file expr = (++ "\n") <$> withGHCDummyFile
(inModuleContext opt cradle file (info file expr) "Cannot show info")
(inModuleContext opt cradle file (info opt file expr) "Cannot show info")
-- | Obtaining information of a target expression. (GHCi's info:)
info :: FilePath -- ^ A target file.
info :: Options
-> FilePath -- ^ A target file.
-> Expression -- ^ A Haskell expression.
-> Ghc String
info file expr = do
info opt file expr = do
void $ Gap.setCtx file
sdoc <- Gap.infoThing expr
(dflag, style) <- getFlagStyle
return $ showPage dflag style sdoc
return $ convert opt $ showPage dflag style sdoc
----------------------------------------------------------------

View File

@ -256,9 +256,9 @@ showInfo :: Options
showInfo opt set ls readLog fileArg = do
let [file, expr] = words fileArg
(_, _, set') <- checkStx opt set ls readLog file
msgs <- info file expr -- fixme
ret <- info opt file expr
_ <- liftIO readLog
return (msgs, True, set') -- fixme
return (ret, True, set')
showType :: Options
-> Set FilePath