4db3c08f40fef7de5297f814a7a6334ff9b707331dcb87105fa0ac5f627e1a0c

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