master
Michele Guerini Rocco 2015-06-04 00:08:32 +02:00
parent 7b17934ea1
commit dc84ecf71a
1 changed files with 1 additions and 1 deletions

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