aboutsummaryrefslogblamecommitdiff
path: root/latex-test/src/UnboxedStuff/UnboxedStuff.hs
blob: bd1b1302dacd76359a783ab16747ecbc8ea62036 (plain) (tree)
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