Defining CompilerOptions.

2013-09-19 15:58:50 +09:00
parent 76795b31f2
commit 97da4e9be1
5 changed files with 38 additions and 30 deletions
--- a/Language/Haskell/GhcMod/Debug.hs
+++ b/Language/Haskell/GhcMod/Debug.hs
@@ -29,11 +29,11 @@ debug :: Options
      -> FilePath     -- ^ A target file.
      -> Ghc [String]
 debug opt cradle ver fileName = do
-    (gopts, incDir, pkgs) <-
+    CompilerOptions gopts incDir pkgs <-
        if cabal then
-            liftIO $ fromCabalFile (ghcOpts opt) cradle ||> return (ghcOpts opt, [], [])
+            liftIO $ fromCabalFile (ghcOpts opt) cradle ||> return (CompilerOptions (ghcOpts opt) [] [])
          else
-            return (ghcOpts opt, [], [])
+            return (CompilerOptions (ghcOpts opt) [] [])
    [fast] <- do
        void $ initializeFlagsWithCradle opt cradle gopts True
        setTargetFiles [fileName]