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

fix type inference of OverloadedStrings

Browse Source 
see: http://hackage.haskell.org/trac/ghc/ticket/5858#comment:3
This commit is contained in:
Greg Weber 2012-02-10 08:13:40 -08:00
parent 51f81e894e
commit 6b4f181b49
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 toTextUrl = toTextUrl . T.pack
instance RedirectUrl master (Route master) where instance RedirectUrl master (Route master) where
toTextUrl u = do toTextUrl url = do
r <- getUrlRender r <- getUrlRender
return $ r u return $ r url
instance t ~ Text => RedirectUrl master (Route master, [(t, t)]) where instance (key ~ Text, val ~ Text) => RedirectUrl master (Route master, [(key, val)]) where
toTextUrl (u, ps) = do toTextUrl (url, params) = do
r <- getUrlRenderParams r <- getUrlRenderParams
return $ r u ps return $ r url params
localNoCurrent :: GHandler s m a -> GHandler s m a localNoCurrent :: GHandler s m a -> GHandler s m a
localNoCurrent = localNoCurrent =