blob: c6bc7f5f382de77e1513e05990e6b00886599366 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# OPTIONS_GHC -O #-}
module TUnboxer where
-- This checks that the multiplicity of unboxer inside MkId.wrapCo is correct.
-- The test is a minimized version of base/GHC/Event/PSQ.hs and requires -O.
newtype Unique = Unique Int
data IntPSQ = Bin !Unique
deleteView :: Unique -> ()
deleteView k = Bin k `seq` ()
|
