@@ -146,8 +146,7 @@ getSystemInfo = do
146 siArch = Distribution.System.X86_64
146 siArch = Distribution.System.X86_64
148data ConstraintFile = ConstraintFile
148data ConstraintFile = ConstraintFile
149− { cfGlobalFlags :: Map FlagName Bool
150− , cfPackageFlags :: Map PackageName (Map FlagName Bool)
149+ { cfPackageFlags :: Map PackageName (Map FlagName Bool)
151 , cfSkippedTests :: Set PackageName
150 , cfSkippedTests :: Set PackageName
152 , cfExpectedTestFailures :: Set PackageName
151 , cfExpectedTestFailures :: Set PackageName
153 , cfExpectedHaddockFailures :: Set PackageName
152 , cfExpectedHaddockFailures :: Set PackageName
@@ -159,7 +158,6 @@ data ConstraintFile = ConstraintFile
160instance FromJSON ConstraintFile where
159instance FromJSON ConstraintFile where
161 parseJSON = withObject "ConstraintFile" $ \o -> do
160 parseJSON = withObject "ConstraintFile" $ \o -> do
162− cfGlobalFlags <- goFlagMap <$> o .: "global-flags"
163 cfPackageFlags <- (goPackageMap . fmap goFlagMap) <$> o .: "package-flags"
161 cfPackageFlags <- (goPackageMap . fmap goFlagMap) <$> o .: "package-flags"
164 cfSkippedTests <- getPackages o "skipped-tests"
162 cfSkippedTests <- getPackages o "skipped-tests"
165 cfExpectedTestFailures <- getPackages o "expected-test-failures"
163 cfExpectedTestFailures <- getPackages o "expected-test-failures"
@@ -210,7 +208,6 @@ toBC ConstraintFile {..} = do
210 | name `member` cfExpectedHaddockFailures = ExpectFailure
208 | name `member` cfExpectedHaddockFailures = ExpectFailure
212 | otherwise = ExpectSuccess
210 | otherwise = ExpectSuccess
213− pcFlagOverrides = fromMaybe mempty (lookup name cfPackageFlags) ++
211+ pcFlagOverrides = fromMaybe mempty $ lookup name cfPackageFlags
216 bcGithubUsers = cfGithubUsers
213 bcGithubUsers = cfGithubUsers