blob: 77f4e3c9dcb20fc4370a9f24a6a9e02c5c0a603f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
module Main where
import Control.Monad
import System.Mem.StableName
import Control.Exception
main = do
mapM_ evaluate list
stable_list1 <- mapM makeStableName list
stable_list2 <- mapM makeStableName list
unless (stable_list1 == stable_list2) $ do
let l1 = map hashStableName stable_list1
let l2 = map hashStableName stable_list2
print $ zip l1 l2
list = [1..10000] :: [Integer]
|
