Data.Diverse.CaseTypeable

Documentation

newtype CaseTypeable xs r

This handler stores a polymorphic function for all Typeables.

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

Typeable Type (Head Type xs) => Case CaseTypeable xs r

Methods

case' :: CaseTypeable xs r -> Head Type xs -> r

Reiterate * CaseTypeable xs

Methods

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