15 lines
400 B
Plaintext
15 lines
400 B
Plaintext
#group extensions/unboxedtuples
|
|
|
|
|
|
#test unboxed-tuple and vanilla names
|
|
{-# LANGUAGE UnboxedTuples #-}
|
|
spanKey :: (# Int, Int #) -> (# Int, Int #)
|
|
spanKey = case foo of
|
|
(# bar, baz #) -> (# baz, bar #)
|
|
|
|
#test unboxed-tuple and hashed name
|
|
{-# LANGUAGE MagicHash, UnboxedTuples #-}
|
|
spanKey :: (# Int#, Int# #) -> (# Int#, Int# #)
|
|
spanKey = case foo of
|
|
(# bar#, baz# #) -> (# baz# +# bar#, bar# #)
|