Fix typos and simplify code

2021-08-29 14:50:49 +02:00
parent 1fb048777c
commit 3986677b06
6 changed files with 13 additions and 21 deletions
--- a/test/GHCup/ArbitraryTypes.hs
+++ b/test/GHCup/ArbitraryTypes.hs
@@ -66,7 +66,7 @@ instance Arbitrary ByteString where
    ---------------------

 instance Arbitrary Scheme where
-  arbitrary = oneof [ pure (Scheme "http"), pure (Scheme "https") ]
+  arbitrary = elements [ Scheme "http", Scheme "https" ]

 instance Arbitrary Host where
  arbitrary = genericArbitrary