summaryrefslogtreecommitdiff
path: root/testsuite/tests/codeGen/should_compile/cg006.hs
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