From 6b4f181b496bda3210cf1e6a8b86432f059d3167 Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Fri, 10 Feb 2012 08:13:40 -0800 Subject: [PATCH] fix type inference of OverloadedStrings see: http://hackage.haskell.org/trac/ghc/ticket/5858#comment:3 --- yesod-core/Yesod/Handler.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/yesod-core/Yesod/Handler.hs b/yesod-core/Yesod/Handler.hs index 016eca7c..32e46e4c 100644 --- a/yesod-core/Yesod/Handler.hs +++ b/yesod-core/Yesod/Handler.hs @@ -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 =