github/purescript-typeable
1
0
Fork 1
mirror of https://github.com/yaitskov/purescript-typeable.git synced 2026-07-25 09:43:53 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add tests

Browse Source
This commit is contained in:
Anupam Jain
2021-04-22 17:38:28 +05:30
parent 583a5340ef
commit 836a3e10da
5 changed files with 77 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Typeable.purs
View File

@@ -117,10 +117,10 @@ foreign import proxyTFromTagT :: forall t a. TagT t => Typeable a => ProxyT (t a
instance typeableRecord :: (RL.RowToList rs ls, TypeableRecordFields ls) => Typeable (Record rs) where
typeRep = typeRowToTypeRep (typeableRecordFields (RLProxy :: _ ls))
else
instance tagTFromTag1 :: (TagT t, Typeable a) => Typeable (t a) where
instance typeableTag1 :: (TagT t, Typeable a) => Typeable (t a) where
typeRep = typeRepFromTag1
else
instance typeableTagT :: TagT t => Typeable t where
instance typeableTag0 :: TagT t => Typeable t where
typeRep = typeRepDefault0
instance tagTFromTagT :: (TagT t, Typeable a) => TagT (t a) where