ghc/tests/lib/should_run/stableptr003.hs

   1 module Main where
   2
   3 import Stable
   4
   5 main = do
   6   stable_list1 <- mapM makeStableName list
   7   stable_list2 <- mapM makeStableName list
   8   print (stable_list1 == stable_list2)
   9
  10 list = [1..10000] :: [Integer]