Commit c4b235e8 authored by Alec Theriault's avatar Alec Theriault Committed by Mikhail Glushenkov
Browse files

fix test

parent ff1f6c83
......@@ -1006,7 +1006,7 @@ legacyPackageConfigFieldDescrs =
[ "hoogle", "html", "html-location"
, "foreign-libraries"
, "executables", "tests", "benchmarks", "all", "internal", "css"
, "hyperlink-source", "hscolour-css"
, "hyperlink-source", "quickjump", "hscolour-css"
, "contents-location", "keep-temp-files"
]
. commandOptionsToFields
......
......@@ -551,6 +551,7 @@ instance Arbitrary PackageConfig where
<*> arbitrary
<*> arbitraryFlag arbitraryShortToken
<*> arbitrary
<*> arbitrary
<*> arbitraryFlag arbitraryShortToken
<*> arbitrary
<*> arbitrary
......@@ -602,10 +603,10 @@ instance Arbitrary PackageConfig where
, packageConfigHaddockInternal = x36
, packageConfigHaddockCss = x37
, packageConfigHaddockLinkedSource = x38
, packageConfigHaddockQuickJump = x39
, packageConfigHaddockHscolourCss = x40
, packageConfigHaddockContents = x41
, packageConfigHaddockForHackage = x42 } =
, packageConfigHaddockQuickJump = x43
, packageConfigHaddockHscolourCss = x39
, packageConfigHaddockContents = x40
, packageConfigHaddockForHackage = x41 } =
[ PackageConfig { packageConfigProgramPaths = postShrink_Paths x00'
, packageConfigProgramArgs = postShrink_Args x01'
, packageConfigProgramPathExtra = x02'
......@@ -648,10 +649,10 @@ instance Arbitrary PackageConfig where
, packageConfigHaddockInternal = x36'
, packageConfigHaddockCss = fmap getNonEmpty x37'
, packageConfigHaddockLinkedSource = x38'
, packageConfigHaddockQuickJump = x39'
, packageConfigHaddockHscolourCss = fmap getNonEmpty x40'
, packageConfigHaddockContents = x41'
, packageConfigHaddockForHackage = x42' }
, packageConfigHaddockQuickJump = x43'
, packageConfigHaddockHscolourCss = fmap getNonEmpty x39'
, packageConfigHaddockContents = x40'
, packageConfigHaddockForHackage = x41' }
| (((x00', x01', x02', x03', x04'),
(x05', x42', x06', x07', x08', x09'),
(x10', x11', x12', x13', x14'),
......@@ -659,8 +660,8 @@ instance Arbitrary PackageConfig where
((x20', x20_1', x21', x22', x23', x24'),
(x25', x26', x27', x28', x29'),
(x30', x31', x32', (x33', x33_1'), x34'),
(x35', x36', x37', x38', x39', x40'),
(x41', x42')))
(x35', x36', x37', x38', x43', x39'),
(x40', x41')))
<- shrink
(((preShrink_Paths x00, preShrink_Args x01, x02, x03, x04),
(x05, x42, x06, x07, x08, x09),
......@@ -672,8 +673,8 @@ instance Arbitrary PackageConfig where
((x20, x20_1, x21, x22, x23, x24),
(x25, x26, x27, x28, x29),
(x30, x31, x32, (x33, x33_1), x34),
(x35, x36, fmap NonEmpty x37, x38, x39, fmap NonEmpty x40),
(x41, x42)))
(x35, x36, fmap NonEmpty x37, x38, x43, fmap NonEmpty x39),
(x40, x41)))
]
where
preShrink_Paths = Map.map NonEmpty
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment