libraries/ghc-compact/tests/compact_small_ptr_array.hs


1
2
3
4
5
6
7
8

import GHC.Compact
import Data.Primitive.SmallArray

main :: IO ()
main = do
    arr <- newSmallArray 5 (Just 'a') >>= unsafeFreezeSmallArray
    arr' <- compact arr
    print $ getCompact arr'