15 lines
233 B
Haskell
15 lines
233 B
Haskell
|
module Xanthous.Util
|
||
|
|
( EqEqProp(..)
|
||
|
|
, EqProp(..)
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Xanthous.Prelude
|
||
|
|
|
||
|
|
import Test.QuickCheck.Checkers
|
||
|
|
|
||
|
|
newtype EqEqProp a = EqEqProp a
|
||
|
|
deriving newtype Eq
|
||
|
|
|
||
|
|
instance Eq a => EqProp (EqEqProp a) where
|
||
|
|
(=-=) = eq
|