blob: e57d6dcf77d761e885f52ab72ad909040ad5c522 (
plain)
1
2
3
4
5
6
7
8
9
10
|
{-# LANGUAGE Haskell2010 #-}
{-# LANGUAGE MagicHash, UnboxedTuples #-}
import GHC.Prim
import GHC.IO
main = IO $ \s ->
let (# s1, p0 #) = newByteArray# 10# s
(# s2, p #) = unsafeFreezeByteArray# p0 s1
(# s3, q #) = newByteArray# 10# s2
in (# copyByteArray# p 0# q 0# 10# s, () #)
|
