Fix typo
This commit is contained in:
parent
7b17934ea1
commit
dc84ecf71a
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user