Rename compact to ghc-compact.
[ghc.git] / libraries / ghc-compact / tests / compact_cycle.hs
1 import Control.Exception
2 import GHC.Compact
3 import qualified Data.Map as Map
4 import System.Exit
5
6 main = do
7 c <- compactWithSharing (cycle "abc") -- magic!
8 print (length (show (take 100 (getCompact c))))
9 print =<< compactSize c