blob: bd1b1302dacd76359a783ab16747ecbc8ea62036 (
plain) (
tree)
|
|
{-# LANGUAGE UnboxedSums, UnboxedTuples #-}
module UnboxedStuff where
data X
data Y
data Z
-- * Unboxed type constructors
unboxedUnit :: (# #) -> (# #)
unboxedUnit = undefined
unboxedTuple :: (# X, Y #) -> (# X, Y, Z #)
unboxedTuple = undefined
unboxedSum :: (# X | Y #) -> (# X | Y | Z #)
unboxedSum = undefined
|