info -> type.

This commit is contained in:
Kazu Yamamoto 2010-11-12 16:32:20 +09:00
parent 9467a5d22e
commit 8760f6b714
2 changed files with 6 additions and 6 deletions

View File

@ -27,7 +27,7 @@ usage = "ghc-mod version 0.4.4\n"
++ "\t ghc-mod [-l] lang\n"
++ "\t ghc-mod [-l] browse <module> [<module> ...]\n"
++ "\t ghc-mod check <HaskellFile>\n"
++ "\t ghc-mod info <HaskellFile> <expression>\n"
++ "\t ghc-mod type <HaskellFile> <expression>\n"
++ "\t ghc-mod [-h opt] lint <HaskellFile>\n"
++ "\t ghc-mod boot\n"
++ "\t ghc-mod help\n"
@ -74,7 +74,7 @@ main = flip catches handlers $ do
"browse" -> concat <$> mapM (browseModule opt) (tail cmdArg)
"list" -> listModules opt
"check" -> withFile (checkSyntax opt) (safelist cmdArg 1)
"info" -> withFile (infoExpr opt (safelist cmdArg 2)) (safelist cmdArg 1)
"type" -> withFile (typeExpr opt (safelist cmdArg 2)) (safelist cmdArg 1)
"lint" -> withFile (lintSyntax opt) (safelist cmdArg 1)
"lang" -> listLanguages opt
"boot" -> do

View File

@ -6,11 +6,11 @@ import Outputable
import PprTyThing
import Types
infoExpr :: Options -> String -> String -> IO String
infoExpr _ expr file = (++ "\n") <$> info file expr
typeExpr :: Options -> String -> String -> IO String
typeExpr _ expr file = (++ "\n") <$> typeOf file expr
info :: String -> String -> IO String
info fileName expr = withGHC $ do
typeOf :: String -> String -> IO String
typeOf fileName expr = withGHC $ do
initSession []
setTargetFile fileName
load LoadAllTargets