blob: c9cc59ead946e82e019257a1993e46553a9613bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{-# LANGUAGE UnboxedTuples #-}
-- 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")
|
