blob: a853295516bc26e9b0a91663c2a1328b3af46a31 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# LANGUAGE Haskell2010 #-}
{-# LANGUAGE MagicHash, UnboxedTuples #-}
-- Test case for #5681
module Main where
import GHC.Exts
work :: Int -> Int
work n = work (n-1)
main :: IO ()
main = case spark# (work 2) realWorld# of
(# _, _ #) -> case par# (work 1) of
_ -> return ()
|