exact-real-0.2.0.0: test/Data/CReal/Extra.hs

{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.CReal.Extra
  ( module Data.CReal
  ) where

import Test.QuickCheck.Checkers (EqProp(..), eq)
import Data.CReal
import GHC.TypeLits

instance KnownNat n => EqProp (CReal n) where
  (=-=) = eq