blob: 366cebeed27266937b742769e80d26f818441890 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE UnboxedTuples, MagicHash #-}
module UnliftedMutVar_Comp where
import GHC.Exts
readForCAS# :: MutVar# RealWorld a -> State# RealWorld -> (# State# RealWorld, a #)
readForCAS# = unsafeCoerce# readMutVar#
-- this used to cause a panic in boxedRepDataCon, because a levity variable
-- was being defaulted to 'Any' instead of 'Lifted'.
|