blob: bd1b1302dacd76359a783ab16747ecbc8ea62036 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# 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
|
