refactoring.

Language/Haskell/GhcMod/Info.hs

@@ -29,9 +29,6 @@ import Language.Haskell.GhcMod.Types
 import Outputable (PprStyle)
 import TcHsSyn (hsPatType)
 
-noWaringOptions :: [String]
-noWaringOptions = ["-w:"]
-
 ----------------------------------------------------------------
 
 -- | Obtaining information of a target expression. (GHCi's info:)
@@ -41,7 +38,7 @@ infoExpr :: Options
          -> Expression   -- ^ A Haskell expression.
          -> IO String
 infoExpr opt cradle file expr = withGHC' $ do
-    initializeFlagsWithCradle opt cradle noWaringOptions
+    initializeFlagsWithCradle opt cradle [noWaringOption]
     info opt file expr
 
 -- | Obtaining information of a target expression. (GHCi's info:)
@@ -79,7 +76,7 @@ typeExpr :: Options
          -> Int          -- ^ Column number.
          -> IO String
 typeExpr opt cradle file lineNo colNo = withGHC' $ do
-    initializeFlagsWithCradle opt cradle noWaringOptions
+    initializeFlagsWithCradle opt cradle [noWaringOption]
     types opt file lineNo colNo
 
 -- | Obtaining type of a target expression. (GHCi's type:)