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

Merge remote-tracking branch 'origin/master' into static-pages

Browse Source
This commit is contained in:
Greg Weber 2012-02-10 08:54:35 -08:00
commit 28ea173472
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
yesod-core/Yesod/Handler.hs
View File

@ -726,14 +726,14 @@ instance RedirectUrl master String where
toTextUrl = toTextUrl . T.pack
instance RedirectUrl master (Route master) where
toTextUrl u = do
toTextUrl url = do
r <- getUrlRender
return $ r u
return $ r url
instance t ~ Text => RedirectUrl master (Route master, [(t, t)]) where
toTextUrl (u, ps) = do
instance (key ~ Text, val ~ Text) => RedirectUrl master (Route master, [(key, val)]) where
toTextUrl (url, params) = do
r <- getUrlRenderParams
return $ r u ps
return $ r url params
localNoCurrent :: GHandler s m a -> GHandler s m a
localNoCurrent =