Commit ef96789a authored by Ian Lynagh's avatar Ian Lynagh

Make stableptr003 give more useful output

parent b4e7f252
module Main where
import Control.Monad
import System.Mem.StableName
main = do
stable_list1 <- mapM makeStableName list
stable_list2 <- mapM makeStableName list
print (stable_list1 == stable_list2)
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]
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment