typeable/id
1
0
Fork 0
mirror of https://github.com/typeable/id.git synced 2024-09-11 13:26:02 +03:00
Code Issues Projects Releases Wiki Activity

rest of the reads..

Browse Source
This commit is contained in:
Ville Tirronen 2022-04-11 10:55:40 +03:00
parent 19de896be1
commit 9378512117
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Data/Id.hs
View File

@ -128,6 +128,11 @@ mkIntId = coerce
instance KnownSymbol s => Show (IntId s) where
show (IntId v) = "IntId-" <> symbolVal (Proxy @s) <> "-" <> show v
instance KnownSymbol s => Read (IntId s) where
readsPrec _ = readP_to_S $ do
_ <- string ("IntId-" <> symbolVal (Proxy @s) <> "-")
mkIntId <$> readS_to_P reads
-- | This is a more \"explicit\" 'coerce' specifically for 'IntId'.
-- You are forced to explicitly specify the phantom types you are converting
-- via the @TypeApplications@ compiler extension.
@ -161,6 +166,11 @@ mkName = coerce
instance KnownSymbol s => Show (Name s) where
show (Name v) = "Name-" <> symbolVal (Proxy @s) <> "-" <> show v
instance KnownSymbol s => Read (Name s) where
readsPrec _ = readP_to_S $ do
_ <- string ("Name-" <> symbolVal (Proxy @s) <> "-")
mkName <$> readS_to_P reads
instance Arbitrary (Name s) where
arbitrary = coerce . T.pack . getPrintableString <$> arbitrary