hanshoglund/iso-deriving
1
1
Fork 0
mirror of https://github.com/hanshoglund/iso-deriving.git synced 2024-09-17 09:57:35 +03:00
Code Issues Projects Releases Wiki Activity

Add Show and Real

Browse Source
This commit is contained in:
Hans Hoeglund 2020-04-16 15:54:31 +01:00
parent d213b63c71
commit 586775de0e
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Iso/Deriving.hs
View File

@ -72,6 +72,15 @@ class (Inject a b, Project a b) => Isomorphic a b where
isom :: Iso' a b
isom = iso inj prj
instance (Project a b, Eq a) => Eq (As a b) where
As a == As b = prj @a @b a == prj b
instance (Project a b, Ord a) => Ord (As a b) where
compare (As a) (As b) = prj @a @b a `compare` prj b
instance (Project a b, Show a) => Show (As a b) where
showsPrec n (As a) = showsPrec n $ prj @a @b a
instance (Isomorphic a b, Num a) => Num (As a b) where
(As a) + (As b) =
@ -92,11 +101,8 @@ instance (Isomorphic a b, Num a) => Num (As a b) where
fromInteger x =
As $ inj @a @b $ fromInteger x
instance (Isomorphic a b, Eq a) => Eq (As a b) where
As a == As b = prj @a @b a == prj b
instance (Isomorphic a b, Ord a) => Ord (As a b) where
compare (As a) (As b) = prj @a @b a `compare` prj b
instance (Isomorphic a b, Real a) => Real (As a b) where
toRational (As x) = toRational $ prj @a @b x
instance (Isomorphic a b, Semigroup a) => Semigroup (As a b) where
As a <> As b = As $ inj @a @b $ prj a <> prj b