Fix and refactor CH.C.Compile

..compilation outputs were landing in CWD

1 files changed, 2 insertions, 7 deletions

diff --git a/src/CabalHelper/Compiletime/Data.hs b/src/CabalHelper/Compiletime/Data.hs
index ca291e9..4e512db 100644
--- a/src/CabalHelper/Compiletime/Data.hs
+++ b/src/CabalHelper/Compiletime/Data.hs
@@ -49,8 +49,8 @@ withSystemTempDirectoryEnv tpl f = do
            tmpdir <- getCanonicalTemporaryDirectory
            f =<< createTempDirectory tmpdir tpl
 
-withHelperSources :: Maybe FilePath -> (FilePath -> IO a) -> IO a
-withHelperSources mdir action = withDir mdir $ \dir -> do
+createHelperSources :: FilePath -> IO ()
+createHelperSources dir = do
     let chdir = dir </> "CabalHelper"
     liftIO $ do
       createDirectoryIfMissing True $ chdir </> "Runtime"
@@ -70,11 +70,6 @@ withHelperSources mdir action = withDir mdir $ \dir -> do
         BS.writeFile path $ UTF8.fromString src
         setFileTimes path modtime modtime
 
-    action dir
-  where
-    withDir (Just dir) = \f -> f dir
-    withDir Nothing    = withSystemTempDirectoryEnv "cabal-helper-source"
-
 
 sourceFiles :: [(FilePath, String)]
 sourceFiles =