mysql-haskell-1.1.7: test/Orphans.hs

{-# OPTIONS_GHC -Wno-orphans #-}

-- https://tech.freckle.com/2018/12/12/a-home-for-orphan-instances/
module Orphans where

import Test.QuickCheck

import Data.Int.Int24
import Data.Word.Word24

-- Arbitrary/CoArbitrary instances for Int24 and Word24

instance Arbitrary Int24 where
  arbitrary = arbitraryBoundedIntegral
  shrink = shrinkIntegral

instance CoArbitrary Int24 where
  coarbitrary = coarbitraryIntegral

instance Arbitrary Word24 where
  arbitrary = arbitraryBoundedIntegral
  shrink = shrinkIntegral

instance CoArbitrary Word24 where
  coarbitrary = coarbitraryIntegral