Expand prefix on generated identifiers #625

2013-12-03 12:01:11 +02:00 · 2013-12-03 12:01:11 +02:00 · cca38cfe03
commit cca38cfe03
parent 6b2e4ef3a4
1 changed files with 1 additions and 1 deletions
--- a/yesod-core/Yesod/Core/Handler.hs
+++ b/yesod-core/Yesod/Core/Handler.hs
@ -697,7 +697,7 @@ newIdent = do
    x <- get
    let i' = ghsIdent x + 1
    put x { ghsIdent = i' }
-    return $ T.pack $ 'h' : show i'
+    return $ T.pack $ "hident" ++ show i'

 -- | Redirect to a POST resource.
 --