This commit is contained in:
Michele Guerini Rocco 2015-06-04 00:08:32 +02:00
parent 7b17934ea1
commit dc84ecf71a

View File

@ -31,6 +31,6 @@ word = replicateM 10 letter where
intHash :: Url -> Int
intHash = decode . fromStrict . hash . pack
-- Assing a unique name to the url
-- Assign a unique name to the url
nameHash :: Url -> Name
nameHash = evalState word . mkStdGen . intHash