genPair :: Gen (Pair a)
genPair = do
x <- arbitrary
y <- arbitrary
return $ Pair x y
durch
genPair :: Gen (Pair a)
genPair = Pair <$> arbitrary <*> arbitrary
ersetzt.
Fühle mich jetzt wie ein kleiner Haskellzauberer.
Nächstes Kapitel: Monaden *zitter*