refactoring.

Language/Haskell/GhcMod/Check.hs

@@ -55,7 +55,7 @@ expandTemplate opt cradle files = withGHC sessionName $ do
     sessionName = case files of
       [file] -> file
       _      -> "MultipleFiles"
-    options = "-w:" : ghcOpts opt
+    options = noWaringOption : ghcOpts opt
 
 ----------------------------------------------------------------
 

Language/Haskell/GhcMod/GHCApi.hs

@@ -9,6 +9,7 @@ module Language.Haskell.GhcMod.GHCApi (
   , getDynamicFlags
   , getSystemLibDir
   , withDynFlags
+  , noWaringOption
   ) where
 
 import Language.Haskell.GhcMod.CabalApi
@@ -180,3 +181,9 @@ withDynFlags setFlag body = G.gbracket setup teardown (\_ -> body)
         void $ G.setSessionDynFlags (setFlag dflag)
         return dflag
     teardown = void . G.setSessionDynFlags
+
+----------------------------------------------------------------
+
+-- probably this is not necessary anymore.
+noWaringOption :: String
+noWaringOption = "-w:"

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:)