Correctly pretty print a wild card in infix position
[ghc.git] / libraries / compact / tests / compact_bytestring.hs
1 import qualified Data.ByteString.Char8 as B
2 import Data.Compact
3 import Data.Compact.Internal
4 import qualified Data.Map as Map
5
6 main = do
7 c <- compact (Map.fromList [(B.pack (show x), x) | x <- [1..(10000::Int)]])
8 print (getCompact c)