summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghci.debugger/Unboxed.hs
blob: 0a886825eb849e3a38f08fa19dd8860e03071086 (plain)
1
2
3
4
5
6
7
8
9
10
{-# LANGUAGE UnboxedTuples #-}

module Unboxed where

data Unboxed1 = Unboxed1 (# Int, Bool #)

data Unboxed2 = Unboxed2 (# Int, (# Int, Bool #) #)

o1 = Unboxed1 (# 5, True #)
o2 = Unboxed2 (# 6, (# 7, False #) #)