rnhmjoj/breve
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix typo

Browse Source
This commit is contained in:
Michele Guerini Rocco 2015-06-04 00:08:32 +02:00
parent 7b17934ea1
commit dc84ecf71a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Breve/Generator.hs
View File

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