Workaround for mersenne-random-pure64

This commit is contained in:
Michael Snoyman 2013-06-22 23:09:15 +03:00
parent 6764ca36ed
commit 6ba96992c6

View File

@ -135,6 +135,11 @@ loadPackageDB settings coreMap core deps = do
where
checkCond' (Var (OS os)) = os == buildOS
checkCond' (Var (Arch arch)) = arch == buildArch
-- Sigh... the small_base flag on mersenne-random-pure64 is backwards
checkCond' (Var (Flag (FlagName "small_base")))
| p == PackageName "mersenne-random-pure64" = False
checkCond' (Var (Flag flag@(FlagName flag'))) =
flag' `Set.notMember` disabledFlags settings &&
flag `elem` flags'