This commit is contained in:
Jon Schoning 2016-11-07 11:30:28 -06:00
parent 5c0d78d503
commit 8b6ff8e13a

View file

@ -42,8 +42,7 @@ instance (GApproxEq f) =>
class ApproxEq a where
(=~) :: a -> a -> Bool
default (=~) :: (Generic a, GApproxEq (Rep a)) =>
a -> a -> Bool
default (=~) :: (Generic a, GApproxEq (Rep a)) => a -> a -> Bool
a =~ b = gApproxEq (G.from a) (G.from b)
instance ApproxEq Text where