diff options
Diffstat (limited to 'testsuite/tests/ghci.debugger/Unboxed.hs')
| -rw-r--r-- | testsuite/tests/ghci.debugger/Unboxed.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/testsuite/tests/ghci.debugger/Unboxed.hs b/testsuite/tests/ghci.debugger/Unboxed.hs index a285fefb8f..0a886825eb 100644 --- a/testsuite/tests/ghci.debugger/Unboxed.hs +++ b/testsuite/tests/ghci.debugger/Unboxed.hs @@ -1,12 +1,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 #) #) - -force_them :: Int -force_them = x + (if b then 1 else 2) + y + z + (if c then 3 else 4) - where - Unboxed1 (# x, b #) = o1 - Unboxed2 (# y, (# z, c #) #) = o2
\ No newline at end of file |