libraries/ghc-compact/tests/compact_largemap.hs


1
2
3
4
5
6
7
8
9

import GHC.Compact
import qualified Data.Map as Map

main = do
  let m = Map.fromList [(x,show x) | x <- [1..(10000::Integer)]]
  c <- compactWithSharing m
  print (length (show (getCompact c)))
  c <- compact m
  print (length (show (getCompact c)))