removing the third argument from initializeFlagsWithCradle.

2014-04-28 13:00:25 +09:00
parent 117d01a52a
commit 000076223f
7 changed files with 10 additions and 10 deletions
--- a/Language/Haskell/GhcMod/Check.hs
+++ b/Language/Haskell/GhcMod/Check.hs
@@ -22,7 +22,7 @@ checkSyntax :: Options
            -> IO String
 checkSyntax _   _      []    = return ""
 checkSyntax opt cradle files = withGHC sessionName $ do
-    initializeFlagsWithCradle opt cradle (ghcOpts opt)
+    initializeFlagsWithCradle opt cradle
    check opt files
  where
    sessionName = case files of
@@ -48,7 +48,7 @@ expandTemplate :: Options
               -> IO String
 expandTemplate _   _      []    = return ""
 expandTemplate opt cradle files = withGHC sessionName $ do
-    initializeFlagsWithCradle opt cradle (ghcOpts opt)
+    initializeFlagsWithCradle opt cradle
    expand opt files
  where
    sessionName = case files of