-fno-code and no outputDir.

Check.hs

@@ -2,7 +2,6 @@ module Check (checkSyntax) where
 
 import Bag
 import Control.Applicative
-import Control.Monad
 import Data.IORef
 import DynFlags
 import ErrUtils
@@ -14,26 +13,19 @@ import HscTypes
 import Outputable hiding (showSDoc)
 import Param
 import Pretty
-import System.Directory
-import System.FilePath
 
 ----------------------------------------------------------------
 
 checkSyntax :: Options -> String -> IO String
-checkSyntax opt file = do
+checkSyntax _ file = unlines <$> check file
-    let outdir = outDir opt
-        objfile = objectFile outdir file
-    makeDirectory outdir
-    removeObjFile objfile
-    unlines <$> check file outdir
 
 ----------------------------------------------------------------
 
 cmdOptions :: [Located String]
 cmdOptions = map noLoc ["-Wall","-fno-warn-unused-do-bind"]
 
-check :: String -> String -> IO [String]
+check :: String -> IO [String]
-check fileName dir = ghandle ignore $ runGhc (Just libdir) $ do
+check fileName = ghandle ignore $ runGhc (Just libdir) $ do
     ref <- liftIO $ newIORef []
     initSession
     setTargetFile fileName
@@ -43,7 +35,7 @@ check fileName dir = ghandle ignore $ runGhc (Just libdir) $ do
     initSession = do
         dflags <- getSessionDynFlags
         (dflags',_,_) <- parseDynamicFlags dflags cmdOptions
-        setSessionDynFlags $ setGhcPackage $ setImportPath $ setOutputDir dir dflags'
+        setSessionDynFlags $ setTarget $ setGhcPackage $ setImportPath dflags'
     setTargetFile file = do
         target <- guessTarget file Nothing
         setTargets [target]
@@ -64,13 +56,6 @@ refLogger ref (Just e) = do
 
 ----------------------------------------------------------------
 
-setOutputDir :: String -> DynFlags -> DynFlags
-setOutputDir f d = d {
-    objectDir  = Just f
-  , hiDir      = Just f
-  , stubDir    = Just f, includePaths = f : includePaths d
-  }
-
 setImportPath :: DynFlags -> DynFlags
 setImportPath d = d {
     importPaths = importPaths d ++ ["..","../..","../../..","../../../../.."]
@@ -82,12 +67,11 @@ setGhcPackage d = d {
   , ghcLink = NoLink
   }
 
-{-
 setTarget :: DynFlags -> DynFlags
 setTarget d = d {
     hscTarget = HscNothing
   }
--}
+
 ----------------------------------------------------------------
 
 showErrMsg :: ErrMsg -> String
@@ -104,24 +88,3 @@ style = mkUserStyle neverQualify AllTheWay
 
 showSDoc :: SDoc -> String
 showSDoc d = Pretty.showDocWith OneLineMode (d style)
-
-----------------------------------------------------------------
-
-makeDirectory :: FilePath -> IO ()
-makeDirectory dir = makeDirectoryRecur $ normalise dir
-  where
-    makeDirectoryRecur "" = return ()
-    makeDirectoryRecur cur = do
-      exist <- doesDirectoryExist cur
-      let par = takeDirectory cur
-      unless exist $ do
-          makeDirectoryRecur par
-          createDirectory cur
-
-objectFile :: FilePath -> FilePath -> FilePath
-objectFile dir hsfile = dir </> replaceExtension hsfile ".o"
-
-removeObjFile :: FilePath -> IO ()
-removeObjFile objfile = do
-    exist <- doesFileExist objfile
-    when exist $ removeFile objfile

GHCMod.hs

@@ -26,7 +26,6 @@ usage =    "ghc-mod version 0.4.0\n"
 defaultOptions :: Options
 defaultOptions = Options { convert = toPlain
                          , ghcPkg  = "ghc-pkg"
-                         , outDir  = outputDir
                          }
 
 argspec :: [OptDescr (Options -> Options)]
@@ -36,9 +35,6 @@ argspec = [ Option "l" ["tolisp"]
           , Option "p" ["ghc-pkg"]
             (ReqArg (\str opts -> opts { ghcPkg = str }) "ghc-pkg")
             "ghc-pkg path"
-          , Option "o" ["output-dir"]
-            (ReqArg (\str opts -> opts { outDir = str }) "dist/flymake")
-            "output directory"
           ]
 
 parseArgs :: [OptDescr (Options -> Options)] -> [String] -> (Options, [String])

Param.hs

@@ -3,11 +3,4 @@ module Param where
 data Options = Options {
     convert :: [String] -> String
   , ghcPkg  :: FilePath
-  , outDir  :: FilePath
   }
-
-outputDir :: String
-outputDir = "dist/flymake"
-
-outputFile :: String
-outputFile = "dist/flymake/a.out"