libraries/ghc-compact/tests/compact_bytestring.hs


1
2
3
4
5
6
7

import qualified Data.ByteString.Char8 as B
import GHC.Compact
import qualified Data.Map as Map

main = do
  c <- compact (Map.fromList [(B.pack (show x), x) | x <- [1..(10000::Int)]])
  print (getCompact c)