blob: 494b37937beb1c4ceb03cd81a9ed724730a30930 (
plain)
1
2
3
4
5
6
7
8
|
{-# LANGUAGE MagicHash #-}
module ShouldCompile where
-- exposed a bug in the NCG in 6.4.2
import GHC.Base
class Unboxable a where
writeUnboxable :: MutableByteArray# RealWorld -> a -> State# RealWorld -> State# RealWorld
writeUnboxable arr a s = writeInt8Array# arr 0# (getTag 0) s
|
