Ticket #786: Unboxable2.hs

File Unboxable2.hs, 265 bytes (added by guest, 8 years ago)
Line 
1{-# OPTIONS_GHC -cpp -fglasgow-exts #-}
2import GHC.Base
3class Unboxable a where
4    writeUnboxable :: MutableByteArray# RealWorld -> a -> State# RealWorld -> State# RealWorld
5    writeUnboxable arr a s  =  writeInt8Array# arr 0# (getTag 0) s
6main = return ()