removing -Wall and -w:.

This commit is contained in:
Kazu Yamamoto
2014-04-28 12:52:09 +09:00
parent f413cda0fe
commit 117d01a52a
6 changed files with 34 additions and 18 deletions

View File

@@ -37,7 +37,7 @@ infoExpr :: Options
-> Expression -- ^ A Haskell expression.
-> IO String
infoExpr opt cradle file expr = withGHC' $ do
initializeFlagsWithCradle opt cradle [noWaringOption]
initializeFlagsWithCradle opt cradle []
info opt file expr
-- | Obtaining information of a target expression. (GHCi's info:)
@@ -73,7 +73,7 @@ typeExpr :: Options
-> Int -- ^ Column number.
-> IO String
typeExpr opt cradle file lineNo colNo = withGHC' $ do
initializeFlagsWithCradle opt cradle [noWaringOption]
initializeFlagsWithCradle opt cradle []
types opt file lineNo colNo
-- | Obtaining type of a target expression. (GHCi's type:)
@@ -128,7 +128,8 @@ pretty dflag style = showOneLine dflag style . Gap.typeForUser
----------------------------------------------------------------
inModuleContext :: FilePath -> (DynFlags -> PprStyle -> Ghc a) -> Ghc a
inModuleContext file action = withDynFlags setDeferTypeErrors $ do
inModuleContext file action =
withDynFlags (setDeferTypeErrors . setNoWaringFlags) $ do
setTargetFiles [file]
Gap.withContext $ do
dflag <- G.getSessionDynFlags