@@ -146,8 +146,7 @@ getSystemInfo = do
146146 siArch = Distribution.System.X86_64
147147
148148data ConstraintFile = ConstraintFile
149− { cfGlobalFlags :: Map FlagName Bool
150− , cfPackageFlags :: Map PackageName (Map FlagName Bool)
149+ { cfPackageFlags :: Map PackageName (Map FlagName Bool)
151150 , cfSkippedTests :: Set PackageName
152151 , cfExpectedTestFailures :: Set PackageName
153152 , cfExpectedHaddockFailures :: Set PackageName
@@ -159,7 +158,6 @@ data ConstraintFile = ConstraintFile
159158
160159instance FromJSON ConstraintFile where
161160 parseJSON = withObject "ConstraintFile" $ \o -> do
162− cfGlobalFlags <- goFlagMap <$> o .: "global-flags"
163161 cfPackageFlags <- (goPackageMap . fmap goFlagMap) <$> o .: "package-flags"
164162 cfSkippedTests <- getPackages o "skipped-tests"
165163 cfExpectedTestFailures <- getPackages o "expected-test-failures"
@@ -210,7 +208,6 @@ toBC ConstraintFile {..} = do
210208 | name `member` cfExpectedHaddockFailures = ExpectFailure
211209
212210 | otherwise = ExpectSuccess
213− pcFlagOverrides = fromMaybe mempty (lookup name cfPackageFlags) ++
214− cfGlobalFlags
211+ pcFlagOverrides = fromMaybe mempty $ lookup name cfPackageFlags
215212
216213 bcGithubUsers = cfGithubUsers