Drop redundant code
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 5 Oct 2017 19:08:35 +0000 (20:08 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Thu, 5 Oct 2017 19:08:35 +0000 (20:08 +0100)
See #314

src/Environment.hs

index d92e067..de43efa 100644 (file)
@@ -2,8 +2,6 @@ module Environment (setupEnvironment) where
 
 import System.Environment
 
-import Base
-
 -- | The build system invokes many external builders whose behaviour is
 -- influenced by the environment variables. We need to modify some of them
 -- for better robustness of the build system.
@@ -16,13 +14,3 @@ setupEnvironment = do
     -- `pwd` will return the Windows path, and then modifying $PATH will fail.
     -- See https://github.com/snowleopard/hadrian/issues/189 for details.
     unsetEnv "PWD"
-
-    -- On Windows, some path variables start a prefix like "C:\\" which may
-    -- lead to failures of scripts such as autoreconf. One particular variable
-    -- which causes issues is ACLOCAL_PATH. At the moment we simply reset it
-    -- if it contains a problematic Windows path.
-    -- TODO: Handle Windows paths in ACLOCAL_PATH more gracefully.
-    aclocal <- lookupEnv "ACLOCAL_PATH"
-    case aclocal of
-        Nothing -> return ()
-        Just s  -> when (":\\" `isPrefixOf` drop 1 s) $ unsetEnv "ACLOCAL_PATH"