Data.Diverse.CaseTypeable

Documentation

newtype CaseTypeable r xs

This handler stores a polymorphic function for all Typeables. This is an example of how to define and instance of Case for polymorphic function into a specified result type.

let y = pick (5 :: Int) :: Which '[Int, Bool]
switch y (CaseTypeable (show . typeRep . (pure @Proxy))) `shouldBe` Int

let x = (5 :: Int) ./ False ./ 'X' ./ Just 'O' ./ (6 :: Int) ./ Just 'A' ./ nul
afoldr (:) [] (forMany (CaseTypeable (show . typeRep . (pure @Proxy))) x) `shouldBe`
    ["Int", "Bool", "Char", "Maybe Char", "Int", "Maybe Char"]

Constructors

CaseTypeable (forall x. Typeable x => x -> r)

Instances

Reiterate (CaseTypeable r) xs

Methods

reiterate :: CaseTypeable r xs -> CaseTypeable r (Tail Type xs)

Typeable Type x => Case (CaseTypeable r) ((:) Type x xs)

Methods

case' :: CaseTypeable r ((Type ': x) xs) -> Head Type ((Type ': x) xs) -> CaseResult * Type (CaseTypeable r) (Head Type ((Type ': x) xs))

type CaseResult * Type (CaseTypeable r) x

type CaseResult * Type (CaseTypeable r) x = r

newtype CaseTypeable' xs

This handler stores a polymorphic function for all Typeables. This is an example of how to define and instance of Case for polymorphic function that doesn't change the type

Constructors

CaseTypeable' (forall x. Typeable x => x -> x)

Instances

Reiterate CaseTypeable' xs

Methods

reiterate :: CaseTypeable' xs -> CaseTypeable' (Tail Type xs)

Typeable Type x => Case CaseTypeable' ((:) Type x xs)

Methods

case' :: CaseTypeable' ((Type ': x) xs) -> Head Type ((Type ': x) xs) -> CaseResult * Type CaseTypeable' (Head Type ((Type ': x) xs))

type CaseResult * Type CaseTypeable' x

type CaseResult * Type CaseTypeable' x = x