blob: d1c073a328ff787d37d698f6164821bc681a00e7 (
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.Prim
work :: Int -> Int
work n = work (n-1)
main :: IO ()
main = case spark# (work 2) realWorld# of
(# _, _ #) -> case par# (work 1) of
_ -> return ()
|
