github/purescript-typeable
1
0
Fork 1
mirror of https://github.com/yaitskov/purescript-typeable.git synced 2026-03-22 03:23:27 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Reduce dependence on the internal dictionary passing mechanism

Browse Source 
Part of this work was done by @the-dr-lazy in
https://github.com/ajnsit/purescript-typeable/pull/3.

GOOD:
Now there is no more dependence on dictionaries being passed as function
arguments at runtime.

BAD:
1. However, we still depend on the dictionaries being stable at runtime.
2. We now also assume that the output of the new function `makeTag` will
never be cached.
This commit is contained in:
Anupam Jain
2023-07-06 20:10:22 +05:30
parent 3c428f76d6
commit f3dd0c0fb1
5 changed files with 70 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
test/Main.purs
View File

@@ -4,7 +4,7 @@ import Prelude
import Control.Monad.Error.Class (class MonadThrow)
import Data.Either (Either)
import Data.Typeable (class TagT, TypeRep, eqTypeRep, proxyT, typeRep, typeRepFromVal)
import Data.Typeable (class Tagged, TypeRep, eqTypeRep, makeTag, typeRep, typeRepFromVal)
import Effect (Effect)
import Effect.Aff (launchAff_)
import Effect.Exception (Error)
@@ -49,17 +49,6 @@ main = do
assert $ eqTypeRep (typeRep :: _ (Optional Int)) (typeRepFromVal (Some 1))
deny $ eqTypeRep (typeRep :: _ (Optional Person)) (typeRepFromVal (Some 1))
-- clog (eqTypeRep (typeRep :: _ Int) (typeRep :: _ Char))
-- clog (eqTypeRep (typeRep :: _ Int) (typeRep :: _ Int))
-- clog (typeRep :: _ Char)
-- clog (typeRep :: _ Int)
-- clog (typeRep :: _ Array)
-- clog (typeRep :: _ { name :: String, age :: Int })
-- clog (typeRep :: _ (Int -> Either (Either Int Int) (Optional (Array (Person)))))
-- clog (typeRep :: _ (Either (Either Int Int) (Optional (Array (Person)))))
-- clog (typeRep :: _ (Either Int Int))
where
typeRecord :: TypeRep { age :: Int, name :: String }
typeRecord = typeRep
@@ -73,10 +62,10 @@ main = do
newtype Person2 = Person2 { name :: String, location :: String }
instance tagTPerson2 :: TagT Person2 where
tagT = proxyT
instance tagPerson2 :: Tagged Person2 where
tag = makeTag unit
data Optional a = None | Some a
instance tagOptional :: TagT Optional where
tagT = proxyT
instance tagOptional :: Tagged Optional where
tag = makeTag unit

7
test/Person.purs
View File

@@ -1,11 +1,12 @@
module Test.Person where
import Data.Typeable (class TagT, TypeRep, proxyT, typeRep)
import Data.Typeable (class Tagged, TypeRep, makeTag, typeRep)
import Data.Unit (unit)
newtype Person = Person { name :: String, location :: String }
instance tagTPerson :: TagT Person where
tagT = proxyT
instance taggedPerson :: Tagged Person where
tag = makeTag unit
typePerson :: TypeRep Person
typePerson = typeRep