diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-08-03 11:21:06 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-08-03 17:21:07 -0400 |
| commit | 4f6726779fa3cbbfe97de49b1d26d5a665c74840 (patch) | |
| tree | 56da11f35cbc1dc155863b81bd29d49a25158467 /compiler/GHC/Settings | |
| parent | 6ad25367fbd44579591e3c287ea88db618d57891 (diff) | |
| download | haskell-4f6726779fa3cbbfe97de49b1d26d5a665c74840.tar.gz | |
Don't store tmpDir in Settings
There was no point in doing this as indicated by the TODO.
Diffstat (limited to 'compiler/GHC/Settings')
| -rw-r--r-- | compiler/GHC/Settings/IO.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/GHC/Settings/IO.hs b/compiler/GHC/Settings/IO.hs index a6af6ae58c..3c4e012675 100644 --- a/compiler/GHC/Settings/IO.hs +++ b/compiler/GHC/Settings/IO.hs @@ -111,10 +111,6 @@ initSettings top_dir = do install_name_tool_path <- getToolSetting "install_name_tool command" ranlib_path <- getToolSetting "ranlib command" - -- TODO this side-effect doesn't belong here. Reading and parsing the settings - -- should be idempotent and accumulate no resources. - tmpdir <- liftIO $ getTemporaryDirectory - touch_path <- getToolSetting "touch command" mkdll_prog <- getToolSetting "dllwrap command" @@ -156,8 +152,7 @@ initSettings top_dir = do } , sFileSettings = FileSettings - { fileSettings_tmpDir = normalise tmpdir - , fileSettings_ghcUsagePath = ghc_usage_msg_path + { fileSettings_ghcUsagePath = ghc_usage_msg_path , fileSettings_ghciUsagePath = ghci_usage_msg_path , fileSettings_toolDir = mtool_dir , fileSettings_topDir = top_dir |