Commit e5aaf719 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-11-24 09:45:31 by simonpj]

Test desugaring for unboxed tuples
parent 545656e4
......@@ -15,3 +15,4 @@ test('dsrun009', normal, compile_and_run, [''])
test('dsrun010', normal, compile_and_run, [''])
test('dsrun011', normal, compile_and_run, [''])
test('dsrun012', normal, compile_and_run, [''])
test('dsrun013', normal, compile_and_run, [''])
{-# OPTIONS_GHC -fglasgow-exts #-}
-- This one killed GHC 6.4.1, because the pattern match on the
-- unboxed tuple generates a failure case, which defeated the
-- rather fragile code in the desugarer
-- See DsExpr.lhs, the HsCase case
module Main where
foo xs ys = case (# null xs, null ys #) of
(# True, False #) -> "One"
(# False, True #) -> "Two"
main :: IO ()
main = print (foo [] "ok")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment