Source

aeson / tests / Types.hs

The default branch has multiple heads

Diff from to

File tests/Types.hs

-{-# LANGUAGE DefaultSignatures, DeriveDataTypeable, DeriveGeneric,
+{-# LANGUAGE DeriveDataTypeable, DeriveGeneric,
     GeneralizedNewtypeDeriving #-}
 
 module Types where
 class ApproxEq a where
     (=~) :: a -> a -> Bool
 
-    default (=~) :: (Eq a) => a -> a -> Bool
-    (=~) = (==)
-
 newtype Approx a = Approx { fromApprox :: a }
     deriving (Show, Data, Typeable, Generic, ApproxEq, Num)