-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
-    let outdir = outDir opt
-        objfile = objectFile outdir file
-    makeDirectory outdir
-    removeObjFile objfile
-    unlines <$> check file outdir
+checkSyntax _ file = unlines <$> check file
 
 ----------------------------------------------------------------
 
 cmdOptions :: [Located String]
 cmdOptions = map noLoc ["-Wall","-fno-warn-unused-do-bind"]
 
-check :: String -> String -> IO [String]
-check fileName dir = ghandle ignore $ runGhc (Just libdir) $ do
+check :: String -> IO [String]
+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