Commit b992faed authored by Robert Henderson's avatar Robert Henderson
Browse files

Corrected minor error (forgot to delete old instance).

parent 702a39d4
......@@ -564,16 +564,6 @@ instance Arbitrary RemoteRepo where
shortListOf1 5 (oneof [ choose ('0', '9')
, choose ('a', 'f') ])
instance Arbitrary UserConstraint where
arbitrary =
oneof
[ UserConstraintVersion <$> arbitrary <*> arbitrary
, UserConstraintInstalled <$> arbitrary
, UserConstraintSource <$> arbitrary
, UserConstraintFlags <$> arbitrary <*> shortListOf1 3 arbitrary
, UserConstraintStanzas <$> arbitrary <*> ((\x->[x]) <$> arbitrary)
]
instance Arbitrary UserConstraint where
arbitrary =
oneof [ UserConstraint UserUnqualified <$> arbitrary <*> prop
......
Markdown is supported
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