Abstract over make

So on FreeBSD we get gmake.
This commit is contained in:
2020-03-17 22:43:45 +01:00
parent fee16758de
commit c0c70f5c9b
2 changed files with 14 additions and 19 deletions

View File

@@ -44,7 +44,7 @@ import Prelude hiding ( abs
)
import Safe
import System.IO.Error
import System.Posix.FilePath ( takeFileName )
import System.Posix.FilePath ( getSearchPath, takeFileName )
import System.Posix.Files.ByteString ( readSymbolicLink )
import URI.ByteString
@@ -325,3 +325,12 @@ ghcToolFiles ver = do
-- this GHC was built from source. It contains the build config.
ghcUpSrcBuiltFile :: Path Rel
ghcUpSrcBuiltFile = [rel|.ghcup_src_built|]
-- | Calls gmake if it exists in PATH, otherwise make.
make :: [ByteString] -> Maybe (Path Abs) -> IO (Either ProcessError ())
make args workdir = do
spaths <- catMaybes . fmap parseAbs <$> getSearchPath
has_gmake <- isJust <$> searchPath spaths [rel|gmake|]
let mymake = if has_gmake then [s|gmake|] else [s|make|]
execLogged mymake True args [rel|ghc-make.log|] workdir Nothing