Download raw

Created: 2019-10-12 06:53:48.403379 UTC

Size: 445

Preview (limited to 512 bytes)

"{-# OPTIONS_GHC -fno-warn-orphans #-}\nmodule Orphans () where\n\nimport Numeric.Natural (Natural)\nimport Test.QuickCheck (Arbitrary (..))\n\n-- | The QuickCheck-2.10 doesn't define the Arbitrary Natural instance\n-- We define own instance (and not use quickcheck-instance) to break\n-- the cycle in tests.\ninstance Arbitrary Natural where\n arbitrary = fmap (fromInteger . abs) arbitrary\n shrink = map (fromInteger . abs) . shrink . fromIntegral\n"

A service provided by FP Complete