Changeset View
Changeset View
Standalone View
Standalone View
head/devel/stack/files/patch-ino64-support
| Property | Old Value | New Value |
|---|---|---|
| fbsd:nokeywords | null | yes \ No newline at end of property |
| svn:eol-style | null | native \ No newline at end of property |
| svn:mime-type | null | text/plain \ No newline at end of property |
| diff --git a/src/Stack/Setup.hs b/src/Stack/Setup.hs | |||||
| index bd7b1d3cd..c43efaab6 100644 | |||||
| --- src/Stack/Setup.hs | |||||
| +++ src/Stack/Setup.hs | |||||
| @@ -96,6 +96,7 @@ import System.FilePath (searchPathSeparator) | |||||
| import qualified System.FilePath as FP | |||||
| import System.Permissions (setFileExecutable) | |||||
| import RIO.Process | |||||
| +import RIO.List | |||||
| import Text.Printf (printf) | |||||
| #if !WINDOWS | |||||
| @@ -614,6 +615,13 @@ getGhcBuilds = do | |||||
| _ -> CompilerBuildSpecialized (intercalate "-" c)) | |||||
| libComponents | |||||
| #if !WINDOWS | |||||
| + Platform _ Cabal.FreeBSD -> do | |||||
| + let getMajorVer = readMaybe <=< headMaybe . (splitOn ".") | |||||
| + majorVer <- getMajorVer <$> sysRelease | |||||
| + if majorVer >= Just (12 :: Int) then | |||||
| + useBuilds [CompilerBuildSpecialized "ino64"] | |||||
| + else | |||||
| + useBuilds [CompilerBuildStandard] | |||||
| Platform _ Cabal.OpenBSD -> do | |||||
| releaseStr <- mungeRelease <$> sysRelease | |||||
| useBuilds [CompilerBuildSpecialized releaseStr] | |||||