Merge branch 'master' of github.com:yesodweb/yesod

2013-12-03 12:34:55 +02:00 · 2013-12-03 12:34:55 +02:00 · cf0fad20bc
commit cf0fad20bc
parent f85b38e817 cca38cfe03
1 changed files with 1 additions and 1 deletions
--- a/yesod-core/Yesod/Core/Handler.hs
+++ b/yesod-core/Yesod/Core/Handler.hs
@ -722,7 +722,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.
 --