haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Expand prefix on generated identifiers #625

Browse Source
This commit is contained in:
Michael Snoyman 2013-12-03 12:01:11 +02:00
parent 6b2e4ef3a4
commit cca38cfe03
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-core/Yesod/Core/Handler.hs
View File

@ -697,7 +697,7 @@ newIdent = do
x <- get x <- get
let i' = ghsIdent x + 1 let i' = ghsIdent x + 1
put x { ghsIdent = i' } put x { ghsIdent = i' }
return $ T.pack $ 'h' : show i' return $ T.pack $ "hident" ++ show i'
-- | Redirect to a POST resource. -- | Redirect to a POST resource.
-- --