| 1 | {-# OPTIONS_GHC -cpp -fglasgow-exts #-} |
|---|
| 2 | import GHC.Base |
|---|
| 3 | class Unboxable a where |
|---|
| 4 | writeUnboxable :: MutableByteArray# RealWorld -> a -> State# RealWorld -> State# RealWorld |
|---|
| 5 | writeUnboxable arr a s = writeInt8Array# arr 0# (getTag 0) s |
|---|
| 6 | main = return () |
|---|
