mirror of
https://github.com/yaitskov/purescript-typeable.git
synced 2026-03-22 03:23:27 +00:00
16 lines
325 B
Plaintext
16 lines
325 B
Plaintext
module Test.Person where
|
|
|
|
import Data.Typeable (class TagT, TypeRep, proxyT, typeRep)
|
|
|
|
newtype Person = Person { name :: String, location :: String }
|
|
|
|
instance tagTPerson :: TagT Person where
|
|
tagT = proxyT
|
|
|
|
typePerson :: TypeRep Person
|
|
typePerson = typeRep
|
|
|
|
typeArrPerson :: TypeRep (Array Person)
|
|
typeArrPerson = typeRep
|
|
|