Extensible sums and products for Haskell.
x :: Sum '[Int, Bool, Float]
x = Inj True
y :: Sum '[Int, Float, Bool, Char]
y = weaken x
a :: Bool
a = match y (== 10) (== 0.2) id (== 'x')
x' :: Prod '[Int, Float, Bool, Char]
x' = produce $ \f -> f 10 0.2 True 'x'
y' :: Prod '[Bool, Float]
y' = strengthen x'
a' :: Bool
a' = consume y' (\b f -> b && f == 0.2)
q :: Bool
q = select x' $ \b (f :: Float)-> b && f == 0.2This package is extremely experimental, and is subject to arbitrarily large changes.